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1.0 INTRODUCTION 
1.1 ABSTRACT 


THE RMO5/3/2_ SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM 
WHICH USES FUNCTIONAL MEANS TO VERIFY THE OPERABILITY OF THE 
RMO5/3/2 DISK SUBSYSTEM. IN PARTICULAR, THE PROGRAM SERVES THE 
FOLLOWING PURPOSES: 


TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE 
Seenationse INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER 


TO IMPLICITLY ESTABLISH CONFIDENCE IN THE ODRIVE/ADAPTER 
ELECTRICAL INTERFACE; 


TO VERIFY THE FUNCTIONALITY OF THE RMO5/3/2 SUBSYSTEM, INCLUDING 
THE MASSBUS CONTROLLER, MASSBUS ADAPTER AND THE DISK DRIVE. 


THE TEST IS COMPRISED OF 3 PARTS, WHICH WOULD NORMALLY BE RUN _ IN 
SEQUENCE, STARTING WITH PART 1. BRIEFLY, PART 1 TESTS HOUSEKEEPING 
AND MECHANICAL POSITIONING OPERATIONS; PART 2 TESTS WRITE, READ AND 
WRITE CHECK OPERATIONS USING HEADER AND DATA; PART 3 TESTS WRITE, 
READ AND WRITE CHECK OPERATIONS USING DATA. 


1.2 UNIT UNDER TEST 


THE UNIT UNDER TEST (UUT) IS THE RMO5/3/2 DISK SUBSYSTEM WHICH 
CONSISTS OF THE RH MASSBUS CONTROLLER, THE RMO5/3/2 MASSBUS ADAPTER, 
AND THE STORAGE MODULE DISK DRIVE. NOTE THAT A DISK PACK IS _ REQUIRED 
oy a AND 1S CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK 

Vv . 


2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 


THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED 10 BE 
OPERATIONAL, IS REQUIRED TO LOAD AND EXECUTE THE RMO5S/3/2 SUBSYSTEM 
FUNCTIONAL TEST: 


PDP-11 PROCESSOR 

16K MEMORY 

KWI1l-L OR KWi1-P CLOCK 

PROGRAM LOADING DEVICE 

TERMINAL 

RH11 OR RH70 CONTROLLER 

1 TO 8 DISK DRIVES (ANY COMBINATION OF RMOS'S, RMO3'S OR RMO2'S) 


SEQ 0003 
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SEQ 0004 

8 2.2 MEDIA REQUIREMENTS 

60 EACH UNIT BEING TESTED MUST BE LOADED WITH A SCRATCH DISK PACK 
61 BEFORE TESTING BEGINS ON THAT UNIT. THE DISK MUST BE FORMATTED AND 
Ge a A READABLE COPY OF THE MFG AND USR BAD SECTOR FILES. 

65 

oe 2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 

. RMO5/3/2 DISKLESS DIAGNOSTIC, PART 1 & 2 

oY RMO5/3/2 FUNCTIONAL TEST, PART 1 

72 

73 

* 3.0 OPERATING PROCEDURE 

6 3.1 LOADING 

4 THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 

80 «PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE. 

4H -XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE. 

83 

84 

H 3.2 SWITCH OPTIONS 

87 THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY 
be OF THE PROGRAM. 

90 SwW15 HALT ON ERROR 

91 SW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 

92 SwW13 INHIBIT ERROR TYPEOUTS 

93 SwW12 UNUSED 

94 Swi] INHIBIT TEST ITERATIONS 

95 $w10 BELL ON ERROR 

96 Sw09 LOOP ON ERROR 

Sw08 LOOP ON TEST IN SW07-00 

99 THE LOW ORDER 8 SWITCHES (SWO7-SWOO), ARE USED IN CONJUNCTION WITH 
100 SWO8 TO SPECIFY THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL 
10° LOOP ON. 

102 

103 
104 
+ 3.3 STARTING 

107 THE PROGRAM STARTS AT LOCATION 200, WHICH PROVIDES WORST CASE 
108 TEST CONDITIONS IF RUNNING IN AN AUTOMATIC ENVIRONMENT. IF RUNNING IN 
109 A STAND-ALONE ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW 
Fe THE OPERATOR TO CONTROL TEST CONDITIONS. 

112 

113 

114 3.4 HALTING 
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THE PROGRAM SHOULD BE HALTED BY TYPING CONTROL C FROM THE CONSOLE. 
NOTE: Ne a PROGRAM IS_ HALTED BY ANY OTHER MEANS, BAD HEADER 
INFORMATION MAY BE LEFT ON THE DISK PACK. THIS OF COURSE 


DEPENDS ON WHICH TEST IS BEING PERFORMED AT THE TIME OF THE 


3.5 RESTARTING 
ThE PROGRAM CAN BE RESTARTED AT ADDRESS 200. 


4.0 OPERATOR INTERFACE 
4.1 PROGRAM ID 


THE PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME IT 
1S STARTED AFTER BEING LOADED. ALSO, A WARNING MESSAGE IS_ TYPED, 
NOTIFING THE OPERATOR OF POSSIBLE HEADER CORRUPTION IF THE PROGRAM 1S 
HALTED IMPROPERLY. THE PROGRAM IDENTIFICATION AND THE WARNING DO NOT 
OCCUR IF THE PROGRAM IS RESTARTED. 


i ek ek et ed oe td 
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4.2 CONSOLE DIALOGUE 


a 


145 . WHEN THE PROGRAM IS RUNNING IN STAND ALONE MODE, IT ENTERS A 
146 CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM 1.D. AND WARNING 
Hey MESSAGE. (SEE SECTION 4.1) 

149 THE FIRST QUESTION TYPED OUT IS: ‘TYPE HELP TEXT (Y/N) ?°*. 


IF THE OPERATOR RESPONDS WITH A ‘'y'', THE PROGRAM WILL TYPE A BRIEF 
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. 


NOTE: THE FIRST QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM 
START AND NOT ON SUBSEQUENT START-UP'S. 


THE SECOND QUESTION TYPED IS, ‘‘CHANGE ADDRESSES (Y/N) ?°*. IF THE 
UNIBUS ADDRESS of THE RH/RM IS NON STANDARD, THE OPERATOR SHOULD 
RESPOND WITH A ‘'Y'', THEN ANSWER SUBSEQUENT QUESTIONS TO SPECIFY 
THE UNIBUS ADDRESS. VECTOR ADDRESS AND INTERRUPT PRIORITY. IF THE 
OPERATOR RESPONSE I$ A "N'', THE PROGRAM SKIPS TO THE THIRD QUESTION. 


THE THIRD QUESTION TYPED IS, ‘TYPE ‘'A’' TO re: ALL DRIVES, OR 
TYPE DRIVE NUMBER(S) AND TERMINATE INPUT WITH A CARRIAGE RETURN. ° 
THEN, ‘DRIVE(S):* IS TYPED AND WAITS FOR THE OPERATOR TO TYPE AN ‘‘A"’, 
TO TEST ALL POSSIBLE DRIVES OR THE NUMBER(S) OF THE DRIVE(S) HE WANTS 
TESTED AND TERMINATE HIS INPUT WITH A ‘'CARRIAGE RETURN’. 


NOTE: THE LONG VERSION OF THE THIRD QUESTION IS ONLY TYPED ON 
THE INITIAL PROGRAM START. ON ALL SUBSEQUENT STARTS, ONLY 
THE "DRIVE(S):' PROMPT IS TYPED. 
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SEQ 0006 
IF THE ee oo IS, sail hy THE FIRST QUESTION Ni Is. "USE 
SAME DEVICES (Y/N IF THE OPERATOR TYPES ‘‘Y'', THE TEST 1S 


RESTARTED USING THE. SAME DEVICES AS THE LAST TIME, OTHERWISE, THE TEST 
Wee THE DIALOGUE AS IF THE PROGRAM WERE STARTED FOR THE FIRST 


4.3 PROGRESS REPORTS 
AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM IS _ EXECUTED 


FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT INCLUDES A 
MESSAGE AND AN ERROR SUMMARY. 


4.4 PERFORMANCE REPORT 
NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 


OO O OO 09 09 CO 0D 00 CO OO OO OD SIS NI IIS 
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PROGRAM, 

93 

94 

+44 4.5 PROGRAM HALTS 

197 THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
be PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 

200 

201 
one 4.6 ERROR REPORTS 
204 THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE 
205 UNIT BEING TESTED, THE TEST NUMBER, THE ERROR NUMBER AND THE VALUE OF 
206 THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. THIS LINE IS FOLLOWED 
207 BY THE ERROR MESSAGE: ONE OR MORE LINES OF TEXT WHICH GIVE A BRIEF, 
208 YET COMPREHENSIVE DESCRIPTION OF THE ERROR. THE ERROR MESSAGE IS 
209 NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES CONTAINING DATA 
210 HEADERS AND DATA PERTININENT TO THE ERROR, INCLUDING EXPECTED AND 
211 ACTUAL TEST RESULTS. 

212 

2°3 

214 

ote 5.0 ENVIRONMENTAL SUPPORT 

4 5.1 PROCESSOR COMPATIBILITY 

219 THE meg 4 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON ANY PDP-11 
220 PROCESSOR, OVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 
221 MET, AND SROVIDING THAT DATA THROUGHPUT ON THE SYSTEM IS SUFFICIENT TO 
$s¢ SUSTAIN DATA TRANSFER OPERATIONS. 

224 

225 

$56 5.2 DUAL PORT CONFIGURATIONS 

228 THE RMO5/3/2 SUBSYSTEM FUNCTIONAL TEST DOES NOT SPECIFICALLY TEST 
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DUAL PORT LOGIC IN THE RMO5/3/2 ADAPTER BUT JS EXECUTABLE ON 
RMOS/3/2 SUBSYSTEMS HAVING THE DUAL PORT OPTION PROVIDING THE DUAL 
PORT SWITCH IS SET TO THE APPROPRIATE PORT (A OR B). 


5.3 MEMORY PARITY HARDWARE 


MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE 
RMO5/3/2 SUSBYSTEM FUNCTIONAL TEST. 


5.4 MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RM05/3/2 
SUSBYSTEM FUNCTIONAL TEST. CAPABILITIES OF THE MASSBUS CONTROLLER. 


5.5 ACT11, APT11 COMPATIBILITY 
THE ote SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH ACT11 
AND APT11 IN BOTH DUMP AND AUTOMATIC MODES. FURTHER, THE PROGRAM 


WILL EXECUTE a QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK 
VERIFY MODE. 


5.6 XXDP COMPATIBILITY 
THE RMO5/3/2 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP_ IN 


DUMP AND CHAIN MODES, AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE 
THE RMO5/3/2 IS THE XXDP LOADING DEVICE. 


5.7 OPERATING SYSTEM COMPATIBILITY 
THE PROGRAM IS NOT COMPATIBLE WITH ANY SOFTWARE OPERATING SYSTEM. 


6.0 TEST DESCRIPTION 


CONTROLLER ACCESS TEST 
PURPOSE : 


TO VERIFY THAT THE UNIBUS ADDRESS OF THE SUBSYSTEM 15 
CORRECT, AS DEFINED AT LOCATION $BASE. 


PROCEDURE : 


SEQ 0007 


- 
~ CZRMNAO RMOS/3/2 FCTNL TST 2 MACRO V03.01 11-APR=80 13:17:48 PAGE 3-5 


SEQ 0008 
286 
287 THE TEST TRIES TO ACCESS ALL MASSBUS CONTROLLER REGISTERS 
288 YS 1We THE $BASE ADDRESS. ar Siates CONTENTS ARE IGNORED DURING 
289 THE TEST, AND THE TEST FAILS IF A BUS TIMEOUT OCCURS FOR ANY 
soe REGISTER. TRANSFER. 
292 IF THE TEST FAILS AND THE PROGRAM IS RUNNING IN A STAND 
293 ALONE ENVIRONMENT, 1.E€., LOCATION 42 IS 0, THE PROGRAM WILL JUMP 
294 TO LOCATION 204 WHICH ALLOWS THE OPERATOR TO CHANGE THE $BASE 
295 ADDRESS VIA CONSOLE DIALOGUE. OTHERWISE, THE PROGRAM ESCAPES TO 
296 THE END OF PASS HANDLER. 
297 
298 
299 
300 
301 
4 ' DEVICE AVAILABLE TEST 
306 PURPOSE: 
306 TO VERIFY THAT THE UNIT UNDER TEST IS AVAILABLE FOR TESTING, 
or AND IS NOT LOCKED OR PROGRAMMED TO THE ALTERNATE PORT. 
t44 PROCEDURE : 
311 THIS TEST SELECTS THE DEVICE AND READS CONTROL STATUS 
312 REGISTERS 1 AND 2 TO VERIFY THAT THE SELECTED DEVICE IS AVAILABLE 
313 FOR TESTING, AS INDICATED BY DVA STATUS, BIT 11 OF RMCS1 AND NED 
314 STATUS, Blt 12 OF RMCS2. THE RESULTS OF THE TEST CAN VARY AS 
fa FOLLOWS: 
317 -NONEXISTANT DEVICE - THE DEVICE IS NONEXISTENT OR IS LOCKED 
a8 ON THE ALTERNATE PORT AND IS THEREFORE NO? AVAILABLE FOR TESTING; 
320 DEVICE NOT AVAILABLE - THE DEVICE EXISTS BUT IS SEIZED BY 
$3 THE ALTERNATE PORT AND IS NOT AVAILABLE FOR TESTING; 
323 ~BUS TIMEOUT - THE MASSSUS CONTROLLER FAILED TO DETECT A 
ee NONEXISTENT DEVICE; 
359 -DEVICE AVAILABLE - THE DEVICE IS AVAILABLE FOR TESTING. 
328 THE PROGRAM JUMPS TO THE SUBPASS HANDLER WHICH SELECTS THE 
330 NEXT DRIVE TO BE TESTED IF THE DEVICE IS NOT AVAILABLE. 
331 
332 
333 
334 
335 DRIVE TYPE TEST 
336 
ti PURPOSE : 
339 TO VERIFY THAT THE UNIT UNDER TEST IS AN RMOS, RMO3 OR RMOZ 
re SINGLE PORT OR DUAL PORT SUBSYSTEM. 
342 PROCEDURE: 


J .1 
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SEQ 0009 
343 
344 THIS TEST es THE DRIVE TYPE REGISTER, RMDT, O 
345 SELECTED DEVICE AND VERIFIES THAT THE DEVICE IS A SINGLE PORT OR 
346 DUAL PORT RHOS/ 3/2 SUBSYSTEM. IF THE SELECTED DEVICE IS NOT AN 
347 RMO5/3/2, THE PROGRAM JUMPS TO THE SUBPASS HANDLER WHICH WILL 
“8 SELECT THE NEXT DEVICE FOR TESTING. 
350 
351 
352 
353 
328 WRITE/READ HEADER AND DATA (FORMAT) TESTS 
329 PURPOSE: 
358 TO TEST WRITE HEADER AND DATA AND READ HEADER AND DATA 
359 FUNCTIONALITY OF THE RMO5S/3/2 SUBSYSTEM USING A SET OF VARIABLES 
360 WHICH INCLUDE WORD COUNT, HEAD MOTION, HEAD SWITCHING AND ERROR 
361 CONDITIONS. 
362 
- PROCEDURE: 
365 ALTHOUGH EACH TEST EXERCISES A DIFFERENT VARIABLE, THE 
366 GENERAL PROCEDURE OF EACH TEST IS THE SAME. THE DRIVE IS 
367 INITIALIZED AND RECALIBRATED IF ‘‘PIP*’’ OR ‘'SKI'' ARE ACTIVE SO THAT 
368 THERE ARE NO ERRORS WHEN A TEST BEGINS. FOLLOWING THAT, THE TEST 
369 PERFORMS ANY EXPLICIT SEEKS REQUIRED FOR THE CONDITIONS OF THE 
370 TEST. REGISTERS — PRESET AND THE WRITE HEADER AND DATA COMMAND 
371 IS EXECUTED. WHEN THE WRITE COMMAND IS COMPLETE, THE TEST STORES 
372 ALL SUBSYSTEM STATUS AND CHECKS FOR PRIMARY ERRORS WHICH PRECLUDE 
373 OTHER STATUS CHECKS. IF THERE ARE NO PRIMARY ERRORS, THE TEST 
374 VERIFIES THE RESULTS OF THE WRITE COMMAND AND THEN CHECKS FOR 
375 SECONDARY ERRORS. LOOP ADDRESSES ARE MODIFIED FOLLOWING THE 
376 SUCCESSFUL COMPLETION OF THE WRITE COMMAND IN ORDER TO SHORTEN 
377 EXECUTION TIMES AND ENHANCE SCOPING LOOPS, THEN THE PROGRAM 
378 EXECUTES THE READ HEADER AND DATA PORTION OF THE TEST, VERIFYING 
th THE SAME TYPE OF ERRORS AS IN THE WRITE COMMAND. 
381 
382 NOTE: 
383 THAT THE SECTOR USED DURING A TEST MAY DIFFER FROM THE 
384 PROGRAM LISTING BECAUSE THE PROGRAM SUBSTITUTES A GOOD SECTOR IF 
385 THE ONE SELECTED IS LISTED IN THE BAD BLOCK TABLE OF THE LAST 
386 TRACK. UNLESS SPECIFIED OTHERWISE, ALL TESTS ARE IN 16 BIT 
387 FORMAT. 
388 
389 
390 
391 
392 
to FORMAT ZEROS TEST 
395 THE TEST SEEKS ys Ot 0, THEN WRITES HEADER AND DATA ON 
396 SECTOR 0 IN 18 BIT FORM THE HEADER AND arty FIELDS ARE ALL 
397 ZEROS, CAUSING THE DEVICE. 16 USE NORMAL WRITE GATE. THE HEADER 
398 AND DATA ARE READ AND COMPARED WITH THE WRITE BUFFER. THE 


399 INITIAL SEEK POSITIONS THE HEAD SUCH THAT THERE IS NO IMPLIED 


— CURMNAO RMOS/3/2 FCINL TST 2 





K 1 
MACRO VO03.01 11-APR-80 13:17:48 PAGE 3-7 


SEEK. THE TEST IS REPEATED FOR 16 BIT FORMAT. 


ZERO FILL TEST TEST 


THE TEST EXECUTES A SEEK TO CYLINDER 0 TO INSURE THAT THERE 
1S NO HEAD MOTION DURING DATA TRANSFER. THIS IS FOLLOWED By A 
WRITE HEADER AND DATA COMMAND WITH THE WORD COUNT EQUAL TO THE 
SIZE OF THE HEADER WHICH CAUSES THE RH TO ZERO FILL THE DATA 
FIELD. THE READ HEADER AND DATA COMMAND THAT FOLLOWS READS A 
FULL SECTOR AND VERIFIES THAT DATA WAS ZERO FILLED. 


FORMAT CHECK ZEROS TEST 


THE TEST WRITES HEADER AND AN ALL ZEROS DATA FIELD, THEN 
3 hey A CHECK HEADER AND DATA COMMAND AND VERIFIES THERE 


FORMAT CHECK ZEROS W/ WCE ERROR TEST 


THE TEST WRITES HEADER AND AN ALL ZEROS DATA FIELD. AFTER 
COMPLEMENTING THE LAST WORD OF THE WRITE BUFFER, THE TEST 
PERFORMS A WRITE CHECK HEADER AND DATA COMMAND AND VERIFIES THAT 
THE CORRECT WRITE CHECK ERROR IS DETECTED. 


FORMAT ONES TEST 


THE TEST WRITES HEADER AND AN ALL ONES DATA FIELD, THEN 
READS THE HEADER AND DATA, VERIFYING THE READ BUFFER WITH THE 
WRITE BUFFER. THE ALL ONES FIELD 1S A CONSTANT FREQUENCY, AND 
THE DRIVE SHOULD USE NORMAL WRITE GATE. 


FORMAT CHECK ONES TEST 


THE TEST FORMATS AN ALL ONES DATA : 


ELD, THE PERFORMS A 
ue CHECK HEADER AND DATA COMMAND, VERIFY] 


JELD, 
FYING THAT THERE ARE NO 


SEQ 0010 
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SEQ 0011 
457 
458 
459 
460 
ret FORMAT CHECK ONES W/ WCE ERROR TEST 
463 THE TEST FORMATS AN ALL ONES DATA FIELD, THEN COMPLEMENTS 
464 THE LAST WORD OF THE WRITE BUFFER. A WRITE CHECK HEADER AND DATA 
465 COMMAND IS EXECUTED, AND THE TEST VERIFIES THAT THE CORRECT WRITE 
466 CHECK ERROR IS DETECTED. 
467 
468 
469 
470 
471 
ote FORMAT MULTIPLE SECTORS TEST 
474 THE TEST SEEKS TO CYLINDER 0 TO INSURE THERE IS NO HEAD 
475 Ate DURING DATA TRANSFER. THE WRITE HEADER AND DATA COMMAND 
476 FOLLOWS, WITH THE WORD COUNT EQUAL TO MULTIPLE SECTORS. THE SAME 
rye SECTORS ARE VERIFIED WITH A WRITE CHECK HEADER AND DATA COMMAND. 
479 
480 
481 
482 
=: FORMAT WITH HEAD SWITCHING TEST 
485 THE TEST SEEKS ¥ “ oo 0 TO INSURE THERE IS NO HEAD 
486 MOTION DURING DATA TRANSFER. THE OuRITe a AND DATA COMMAND 
487 STARTS WITH CYLINDER O. TRACK 0, SECTOR 31. THE WORD COUNT IS 
488 EQUAL 70 MULTIPLE SECTORS WHICH CAUSES THE SUBSYSTEM TO SWITCH 
489 FROM TRACK 0 TO TRACK 1 AFTER THE FIRST OF THE MULTIPLE SECTORS 
490 ARE WRITTEN. THE SAME SECTORS ARE VERIFIED WITH A WRITE CHECK 
491 HEADER AND DATA COMMAND, USING THE SAME WORD COUNT AND STARTING 
492 SECTOR. 
493 
454 
495 
496 
497 
res FORMAT WITH MID-TRANSFER SEEK TEST 
500 THIS TEST WRITES MULTIPLE SECTORS STARTING WITH CYLINDER O, 
501 LAST TRACK AND SECTOR 31., CAUSING A MIDTRANSFER SEEK AFTER THE 
502 FIRST SECTOR IS WRITTEN. THE SAME SECTORS ARE VERIFIED WITH WRITE 
‘7 CHECK HEADER AND DATA COMMAND. 
505 
506 
507 
508 
4 FORMAT WITH IMPLIED SEEK TEST 
511 THIS TEST SEEKS TO THE LAST CYLINDER PRIOR TO WRITING HEADER 
512 AND DATA ON CYLINDER 0. THE EXPLICIT SEEK INSURES THAT THERE 
513 WILL BE MAXIMUM HEAD MOTION DURING THE IMPLIED SEEK OF THE WRITE 


—— 
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COMMAND. THE SAME i nea bate Sarma THE EXPLICIT SEEK IS 
REPEATED FOR READ HEADER AN” DAT 


FORMAT EACH SECTOR ADDRESS TEST 


HEADERS AND DATA OF EACH SECTOR ON CYLINDER 0, TRACK OQ ARE 
FORMATTED AND READ WITH THE PROGRAM VERIFYING HEADERS AND DATA. 


FORMAT EACH TRACK ADDRESS TEST 


THIS TEST FORMATS SECTOR 0 OF EACH TRACK ON CYLINDER Q AND 
READS EACH SECTOR WITH THE PROGRAM VERIFYING HEADERS AND DATA. 


FORMAT PRIME CYLINDERS TEST 


THIS TEST FORMATS AND READS is Q, TRACK 0 ON EACH PRIME 
CYLINDER, 1.€., CYLINDERS 1,2,4,8,...,512. 


READ HEADER & DATA IN LAST SECTOR TEST 


THIS TEST READS HEADER AND DATA ON THE “ SECTOR OF THE, 
DISK, 1.€., AND VERIFIES THAT ‘‘LBT’’ STATUS SETS 


READ HEADER & DATA W/ AOE ERROR TEST 


THIS TEST READS MULTIPLE SECTORS STARTING WITH THE LAST 
SECTOR 31. AND VERIFIES THAT AOE STATUS SETS. 


READ INVALID SECTOR ADDRESS TEST 


THIS TEST USES AN ILLEGAL SECTOR ADDRESS AND VERIFIES THAT 
JAE STATUS SETS. 


SEQ 0012 
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READ INVALID TRACK ADDRESS TEST 


THIS TEST — AN ILLEGAL TRACK ADDRESS AND VERIFIES THAT 
1AE STATUS SETS 


READ INVALID CYLINDER ADDRESS TEST 


THIS TEST USES AN ILLEGAL CYLINDER ADDRESS AND VERIFIES THAT 
IAE STATUS SETS. 


FORMAT AT OFFSET TEST 


THE PROGRAM SETS OFFSET MODE AND EXECUTES A WR 
al ayers, VERIFYING THAT OFFSET MODE IS RESE 


TE HEADER AND 


ITE 
T BY THE WRITE 


IvC FORMAT TEST 


VOLUME VALID 1S RSET BY SETTING AND RESETTING DIAGNOSTIC 
ODE. THE TEST THEN EXECUTES A WRITE HEADER AND DATA COMMAND AND 
RIFIES THAT INVALID COMMAND STATUS SETS. THE TEST IS REPEATED 


M 
VE 
FOR READ HEADER AND DATA COMMAND. 


FORMAT ERROR TEST 


A SINGLE SECTOR IS FORMATTED WITH THE OFFSET REGISTER SET 
FOR 16 BIT FORMAT AFTER WHICH THE SAME SECTOR IS READ IN 18 BIT 
FORMAT WITH THE PROGRAM VERIFYING THAT FORMAT ERROR STATUS IS 
SET. THE SAME PROCEDURE IS REPEATED WITH THE SECTOR WRITTEN IN 
18 BIT FORMAT AND READ IN 16 BIT FORMAT. 


? 


FORMAT HCE TEST (1ST AND 2ND HEADER WORDS) 


~—— «4 ee 


SEQ 0013 
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THESE TWO T 
HEADER AND VERIF 
TESTS SETUP THE 
MODIFIED BUFFER TO 
UNTIL EACH BIT POSITION HAS BEEN SEPARATELY TESTED. 


STS WRITE AN INCORRECT HEADER THEN READ THE 
THAT THE CORRECT HEADER ERROR IS DETECTED. 
ORRECT HEADER, THEN COMPLEMENT BIT 0 SE 
| WRITE THE HEADER. THE PROCESS IS REPEATED 


SEQ 0014 


 CZRMNAO RMOS/3/2 FCTNL TST 2 


1 
486 
487 


488 


489 


| 
490 
| 491 


001100 
104000 
000004 


000011 
0 2 


000002 
000003 


. = 
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;PROGRAM REVISION #001 

~ TITLE eat anga/ ave FCTNL TST 2 
:*COPYRIGHT (C) 1980 

*DIGITAL EQUIPMENT CORP. 

3 SRAYNARD , MASS. 01754 

:*PROGRAM BY MIKE LEAVITT 


eTHIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
;*PACKAGE (MAINDEC=11-DZQAC-C4), 1980. 


ct 
-SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 
15 HALT ON ERROR 
TEST 
INHIBIT ERROR TYPEOUTS 


INHIBIT ITERATIONS 
BELL ON ERROR 


ERROR 
ge TEST IN SWR<7:0> 


esenereeneneeeeeeeeeeeenee 


OM NWF VAS NWOO— PWS 
= 


~-SBTTL BASIC DEFINITIONS 
ia. rt ia OF THE STACK POINTER *** 1100 ##* 


= EMT ::BASIC DEFINITION OF ERROR CALL 
10T TIBASIC DEFINITION OF SCOPE CALL 


; *MISCELLANEOUS DEFINITIONS 
HT 11 :;CODE FOR HORIZONTAL TAB 


~” 
oO 
i=) 
vU 
m 
“ou 


LF = 12 ::CODE FOR LINE FEED 

CR = 15 3;;CODE FOR CARRIAGE RETURN 

CRLF = 200 3;CODE FOR CARRIAGE RETURN-LINE FEED 
<3 o = 177776 3:PROCESSOR STATUS WORD 

STKLMT = 177774 z:STACK LIMIT REGISTER 

PIRQ = 177772 3:PROGRAM INTERRUPT REQUEST REGISTER 
DSwR = 177570 7 :HARDWARE SWITCH REGISTER 

DDISP = 177570 ; HARDWARE DISPLAY REGISTER 

: *GENERAL PURPOSE REGISTER oer et ioe 

RO = 20 a3 REGISTER 

R1 = Zi ::GEN Rar REGISTER 

Re = %2 7:GENERAL REGISTER 

fh = %3 7: GENERAL REGISTER 


SEQ 0015 


poo ost 


D 2 
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| BASIC DEFINITIONS SEQ 0016 
000004 RG = %% s:GENERAL REGISTER 
000005 RS = %5 :iGENERAL REGISTER 
| 000006 R6 = %6 SIGENERAL REGISTER 
| 000007 R7 = %7 i} GENERAL REGISTER 
000006 SP = %% SiSTACK POINTER 
| 000007 PC = %7 +:PROGRAM COUNTER 
:*PRIORITY LEVEL DEFINITIONS 
000000 PRO = 0 s PRIORITY LEVEL 0 
| 000040 PRI = 40 > PRIORITY LEVEL 1 

000100 PR2 = 100 = PRIORITY LEVEL 2 
| 000140 PR3 = 140 :;PRIORITY LEVEL 3 

000200 PR4 = 200 ‘:PRIORITY LEVEL 4 
| 000240 PRS = 240 S:PRIORITY LEVEL 5 

000300 PR6 = 300 *:PRIORITY LEVEL 6 

000340 PR? = 340 ::PRIORITY LEVEL 7 
| s®''SWITCH REGISTER’ SWITCH DEFINITIONS 
| 100000 $w15 ss =_:100000 

040000 3Ww14 = = 40000 

020000 Swi3 = -20000 

010000 Swi2 Ss = _:10000 

004000 SW11 ss = 4000 

002000 Sw10 = = 2000 

001000 sw09 = =_-:1000 
000400 Sw08 = 400 

000200 SwO? Ss = 200 

000100 Sw06 = =_:100 

000040 SwOS) = 40 

000020 Sw04 = = 20 

000010 sw03. = 10 

000004 SWO2 = 

000002 SwOl 2 = 2 

000001 swoO = 1 

001000 SW9=SWO9 

000400 Sw8=SW08 

000200 SW7=SWO7 

000100 SW6=SW06 

000040 SW5=SW05 

000020 SWa=SWO4 

000010 SWw3=SW03 

000004 SW2=SwO2 

000002 Sw1=SW01 

000001 SwO=SWO0 
;*DATA BIT DEFINITIONS (B1T00 TO B1T15) 
100000 B1T15 100000 
040000 BIT14 = 40000 
020000 BIT13 = 20000 
010000 BIT12. = 10000 

004000 BIT11 = 4000 

002090 BIT10 = 2000 

001000 BIT09 = 1000 

000400 BIT08 = 400 

000200 BIT07 = 200 
000100 BIT06 = 100 
000040 BIT0S5 = 40 


— CZRMNAO RMO5/3/2 A ac TST 2 


BASIC DEFINITIONS 


507 


3 


PAAAAAAAVUIUT 
os i ee st 
DONO UWF WwR—O 


000020 


000001 


000004 


000240 


004000 


E 
MACRO V03.01 11-APR-80 13:17:48 PAGE 22 


PunnhnHnnHnnHhHnH OWS 


BoOwwwowwwwwwIwwIqaw 
st be bs bs a bt be bs bs be Bs Os 


Oh Ht Ht Ht HH Ht HH HH Ht 
FSF OH NVWEUWOS NDWDODOCOCOO 


TPVEC 

PIRQVEC 
~SBTTL 
> *RMCS1 


+444 oe os os st se 


= 20 

= 10 

= 4 

= 2 

=] 

09 

08 

07 

06 

05 

04 

03 

02 

01 

00 

“CPU'' TRAP VECTOR ADDRESSES 

= ME OUT AND OTHER ERRORS 

= 7 : RESERVED AND ILLEGAL INSTRUCTIONS 
= 14 3; TRACE TRAP 

= 14 7 BREAKPOINT TRAP (BPT) 

= 3 see TRAP (10T) **SCOPE*® 
= 30 ; ;EMULATOR TRAP (EMT) **ERROR*® 

= 34 :;''TRAP'' TRAP 

= 60 t:TTY KEYBOARD VECTOR 

= 64 ::TTY PRINTER VECTOR 

= 240 ;;PROGRAM INTERRUPT REQUEST VECTOR 


RM REGISTER BIT DEFINITIONS 
CONTROL STATUS REGISTER 


= BIT11 ;DEVICE AVAILABLE-READ ONLY 
= BIT05 sFUNCTION CODE 

= BIT04 sFUNCTION CODE 

= B1T03 :FUNCTION CODE 

= B1T02 :FUNCTION CODE 

= B1T01 sFUNCTION CODE 

= B1T00 260 BIT 

= 000077 FUNCTION CODE MASK 

N CODES (BITS 01-05 OF RMCS1) 

= 000000 ;NOP COMMAND 

= 000002 SILLEGAL COMMAND 

= 000004 SEEK COMMAND 

= 000006 :RECALIBRATE COMMAND 

= 000010 :DRIVE CLEAR COMMAND 

= 000012 sRELEASE COMMA 

= 000014 ;OFFSET COMMAND 

= 000016 RETURN TO CENTERLINE COMMAND 
= 000020 READ IN PRESET COMMAND 

= 000022 :PACK ACKNOWLEDGE COMMAND 
= PAKACK 

= 000024 ILLEGAL COMMAND 


000026 ; ILLEGAL COMMAND 


SEQ 0017 


— CZRMNAO RMOS/3/2 FCTNL TST 
RM REGISTER BIT DEFINITI 


520 
523 


PUPP PASAT AIT 
WWWAAIWW WNW WWW Wrororornornorn 
ODONAUFSWN—OOONOUS 


MPAA 
WOMAN 
ONO US WR 


559 


000030 


000076 


010000 


000001 


177400 
000377 


100000 


S 
ONS 


2 


’ 2 
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= 


5 a ee hhh eh aed 
AEM SMOE 


WRTEOT TTT HTH HH Pp 


000076 
:*RMDA DISK ADDRESS REGISTER 
TRACK ADDRESS DEFINITIONS 

6 BIT! 


TAl = 2 
TAB = BIT11 
TAS = B1T10 
TA2 = BITO9 
TAI = B1T08 
SECTOR ADDRESS DEFINITIONS 
16 = BIT04 
SA8 = BIT03 
SA4 = BITO2 
SA2 = B1T01 
SA1 = B1T00 


;TRACK & SECTOR MASKS 
TADMSK = 177400 
SADMSK = 000377 
:*RMDS DRIVE STATUS REGISTER 


io 
@ 
~ 

HnHnnth hhh nna 


;*RMER] ERROR REGISTER #1 


;SEARCH COMMAND 
ZILLEG 


G MMAND 
IWRITE CHECK DATA COMMAND 
WRITE CHECK HEADER AND DATA 
ILLEGAL COMMAND 
ILLEGAL COMMAND 
;WRITE DATA COMMAND 
s:WRITE HEADER AND DATA COMMAND 
:] OMMAND 


: OMMAND 
;READ HEADER AND DATA COMMAND 
ILLEGAL COMMAND 
ILLEGAL COMMAND 


: TRACK ADDRESS 1 
:TRACK ADDRESS 8. 
: TRACK ADDRESS 4 
:TRACK ADDRESS 2 
; TRACK ADDRESS 1 


; TRACK ADDRESS MASK 
SECTOR ADDRESS MASK 


sATTENTION 7h 

COMPOSITE ERR 

:POSITIONING IN, PROGRESS 

;MEDIUM ON LINE 

sWRITE LOCK 

;LAST as TRANSFERRED 
OGRAMMABLE 


UME VALID 
; OFFSET MODE ACTIVE 


SEQ 0018 


en ae | G 2 
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RM REGISTER BIT DEFINITIONS SEQ 0019 
572 \ 
573 100000 DCK = B1T15 :DATA CHECK ERROR 
574 040000 UNS = BIT14 ;DRIV E_UNSAFE 
575 020000 OP] = B1T13 OPERATION ge ts Nee 
576 010000 DTE = BITI2 !DRIV VE TIMING ERR 
577 004000 WLE = BIT11 sWRITE LOCK ERROR 
578 002000 1AE = B1T10 INVALID ADDRESS ERROR 
579 001000 AO = BITO9 sADDRESS OVERFLOW ERROR 
580 000400 HCRC = B1T08 HEADER CRC ERROR 
581 000200 HCE = B1T07 sHEADER COMPARE ERROR 
582 000100 ECH = B1T06 :ECC “HARD'’ ERROR 
583 000040 WCF = B1T05 :WRITE CLOCK FAILURE 
584 00020 FER = BIT04 FORMAT ERROR 
585 000010 PAR = B1T03 :PARITY ERROR 
586 000004 RMR = B1T02 REGISTER MODIFICATION REFUSED 
587 000002 ILR = B1T01 ILLEGAL REGISTER 
24 000001 ILF = B1T00 ILLEGAL FUNCTION 
590 115760 NDTMSK = DCK!DTE!WLE!AOE!HCRC!HCE!ECH!WCFIFER 
591 3"'NDTMSK"' IS USED TO MASK ERROR REGISTER 1 DURING NON = DATA 
256 ;COMMANDS, 1.£., HOUSEKEEPING AND POSITIONING COMMANDS 
eos :*RMAS ATTENTION SUMMARY REGISTER 
+44 000377 ATNMSK = 377 MASK FOR ATTENTION BITS 
rh ;*RMLA LOOK AHEAD REGISTER 
600 002000 SC4 = BIT10 SECTOR COUNT = 16 
601 001000 $¢c3 = BIT09 :SECTOR COUNT = 8 
602 000400 SC2 = B1T08 SECTOR COUNT = 4 
603 000200 $1 = B1107 SECTOR COUNT = 2 
oe 000100 Sco = B1T06 SECTOR COUNT = 1 
rr 003700 SCTMSK = 003700 SECTOR COUNT MASK 
rs ;*RMMR1 MAINTENANCE REGISTER #1 
610 ;WRITE ONLY BITS 
611 100000 DBCK = B1T15 DEBUG CLOCK 
612 040000 DBEN = BIT14 ;DEBUG CLOCK ENABLE 
613 020000 DEBL = B1T13 DIAGNOSTIC END OF BLOCK 
614 010000 DTO = BITI2 sDIAGNOSTIC TIMEOUT 
615 004000 MCLK = BIT11 MAINTENANCE CLOCK 
616 002000 MRD = B1T10 sREAD DATA 
617 001000 MUR = BIT09 UNIT READY 
618 00400 MOC = B1T08 : ON CYLINDER 
619 000200 MSER = B1107 ; SEEK ERROR 
620 000100 MDF = B1106 :DRIVE FAULT 
621 000040 MS = B1T05 SECTOR PULSE 
622 000010 MWP = B1T03 WRITE PROTECT 
623 000004 MI = BIT02 ; IND By 
624 000002 MSC = B1101 SECTOR MPARE 
6g? 000001 DMD = B1T00 ‘DIAGNOSTIC MODE 
627 ;READ ONLY BITS 
628 100000 occ = BIT15 OCCUPIED 


~ CZRMNAO RMOS/3/2 FCTNL TST 2 
RM REGISTER BIT DEFINITIONS 


629 040000 

630 020000 

631 010000 

632 004000 

633 002000 

634 001000 

635 000400 

636 000200 

637 000100 

638 000040 

639 000020 

640 000010 

641 000004 

642 000002 

643 000001 

644 

645 

646 

647 100000 

648 040000 

649 020000 

650 004000 

651 

652 020024 

653 024024 

654 

655 

656 

657 010000 

658 004000 

659 002000 

660 000200 

661 

662 

663 

664 001777 

665 

666 

667 

668 

669 100000 

670 040000 

671 020000 

672 010000 

673 004000 

674 002000 

677 001000 
0004 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


678 


SNGPRT 
DULPRT 


; *RMDC 
CYLMSK 
7 *RMMR2 


H 2 
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020024 
024024 


OFFSET REGISTER 


hunt 
wo 
——s 
4 
— 
Oo 


;RUN AND GO 


WORD CLOCK 

sENABLE ECC OUT 

;WRITE DATA BIT 

;LAST SECTOR 

SLAST SECTOR AND TRACK 
DIAGNOSTIC MODE 


NOT SECTOR ADDRESSED = 0 
: TAPE DRIVE = - 

:MOVING HEA 1 

:DRIVE REQUEST REQUIRED 


;SINGLE PORT DRIVE TYPE (RMO2) 
;DUAL PORT DRIVE TYPE (RMO2) 


:16 BIT WORD FORMAT 
ECC INHIBIT 

sHEADER COMPARE INHIBIT 
OFFSET FORWARD 


DESIRED CYLINDER ADDRESS REGISTER 


= 001777 


MAINTENANCE REGISTER #2 


ee ONLY BITS 


beodectestocloctosdevtoctoriesiectesiosiestectes) 
ee be a es a se es se ee bs 
Se 
COOOCOCOCOCOOCOCO°COoO =" = = Ss 
SO VWE NOS VNDWOO — PW 


MASK FOR CYLINDER ADDRESS 


PORT A REQUEST 

;PORT B REQUEST 

TAG CONTROL 

COMMAND SEQUENCE TEST BIT 
:CONTROL OR CYLINDER TAG 
Lrg OR HEAD TAG 


SEQ 0020 


CZRMNAO RMO5/3/2 FCTNL TST 2 
/ RM REGISTER BIT DEFINITIONS 


100000 


000010 


100000 
040000 


000000 


000076 
000077 


100000 
040000 
020000 
002000 


3 *RMER2 


ILRG76 
IDXMSK 
-SBTTL 
;*RMCS1 


ERRO 


RM REGISTER INDEX VALUES 


bs bs bt be be a a he 


Wronrn—-—-—Ooo 
OO FOG f£MAO 


32 


77 


-—4-3+ HoH HoH = 


. 4 
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EGISTER 2 


MNEMCNICS 


+ BAD SECTOR ERROR 


0 
: INVALID COMMAND ERROR 
:LOSS OF SYSTEM CLOCK 
;LOSS OF - CLOCK 


sDEVICE CHECK 


DATA PARITY ERROR 


;MANUFACTURING DETECTED SECTOR ERROR 
USER DETECTED SECTOR ERROR 


CONTROL STATUS REGISTER #1 
:DISK ADDRESS REGISTER 
:DRIVE STATUS REGISTER 


;ERROR REGISTER 


#1 
sATTENTION SUMMARY —— 


;LOOK AHEAD REGISTE 


sMAINTENANCE REGISTER 
DRIVE TYPE REGISTER 
;SERIAL NUMBER REGISTER 


OFFSET 


REGISTER 
:DESIRED CYLINDER REGISTER 
GISTER 


HOLDING 


RE 
:MAINTENANCE REGISTER #2 
ERROR REGISTER A2 
ECC POSITION REGISTER 
sECC PATTERN it tet 
AL REGISTER 5 


ILLEGAL 


sMASK FOR REGISTER INDEX NUMBER 


REGISTER 
REGISTER 


REGISTER 


RH CONTROLLER REGISTER BIT DEFINITIONS 
CONTROL STATUS REGISTER #1 


; TRANSF 


seeaNereR chee ee ONLY 
:MASSBUS CONTROL BUS PARITY ERROR-READ ONLY 


:PORT B SELECT 


SEQ 0021 


CZRMNAO RMOS/3/2 FCTNL TST 
RH CONTROLLER REGISTER BIT 


001000 


000100 


100000 


000001 


000007 


100000 


000001 


000000 


000052 


176700 
120254 


2 MACRO V03.01 11-APR-80 13:17:48 PAGE bey 


DEFINITIONS 


UNIT SELECT MASK 


UNTMSK 
7*RMCS3 


ABASE 
AVECT1 


-SBTTL 


= 7 


sADDRESS EXTENSION 
sADDRESS EXTENSION 
sREADY-READ ONLY 
; INTERRUPT ENABLE 


H CONTROL STATUS REGISTER #2 


:DATA_LATE=READ ONLY 
WRITE CHECK ERROR-READ ONLY 
;UNIBUS PARITY ERROR 
;NONEXISTANT DRIVE-READ ONLY 


;NONEXISTANT MEMORY-READ ONLY 
;PROGRAM ERROR-READ ONLY 


s:MISSED TRANSFER 


;MASSBUS DATA BUS Fy ERROR-READ ONLY 


;OUTPUT READY=READ ONL 
: INPUT READY-READ ONLY. 


CONTROLLER CLEAR 
PARITY TEST 
;UNIBUS ADDRESS INCREMENT INHIBIT 
UNIT SELECT 


sUNIT SELECT 
sUNIT SELECT 


UNIT SELECT MASK 


RH70 CONTROL STATUS REGISTER #3 


ADDRESS PARITY ERROR 

:DATA PARITY ERROR HIGH WORD 
:DATA PARITY ERROR LOW WORD 
WRITE CHECK ERROR HIGH WORD 
sWRITE CHECK ERROR LOW WORD 
;DOUBLE WORD TRANSFER 

: INTERRUPT ENABLE 

: INVERT PARITY CHECK 

INVERT PARITY CHECK 

: INVERT PARITY CHECK 

: INVERT PARITY CHECK 


RH11/RH70 CONTROLLER REGISTER INDEX VALUES 


TRAP CATCHER 


CONTROL, STATUS REGISTER #1 
;WORD COUNT REGISTER 

BUS ADDRESS REGISTER 
CONTROL, STATUS REGISTER #2 
DATA BUFFER 


BUS ADDRESS EXTENSION 
CONTROL, STATUS REGISTER #3 


;UNIBUS ADDRESS 
:;UNIBUS VECTOR ADDRESS AND PRIORITY 


SEQ 0022 


k 
' CZRMNAO wan ve FCTNL TST 2 MACRO V03.01 11-APR-80 13:17:48 PAGE acs 


TRAP CATC 


000174 
000176 


000200 
785 
786 


000046 
000052 
787 
789 


000024 
000044 


790 


000000 


000174 
000000 
000000 


000137 


000204 


000204 
001100 


001100 


001100 


000000 


001114 


-=0 
>*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.#2,HALT"’ 
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
RREATIOS 5 one 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 :;SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 7 SOFTWARE SWITCH REGISTER 


-SBTTL STARTING ADDRESS(ES) 
005420 JMP OASTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 
~SBTTL ACT11 HOOKS 


ERRATA TREAT T ATTA T CETTE RETA TARTRATE Tee Ree ERT REET 
HOOKS REQUIRED BY ACT11 
$SVPC=. SAVE PC 


SENDAD 3: 1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 


-WORD 0 age LOC. se TO ZERO 
-=$SVPC 3: RESTORE P 


mm 


-=1100 
-SBTTL APT PARAMETER BLOCK 


Cee i iii iii iii iii iii iti iii iii iii 
Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
TTI eet ice i tiie titi titi tei t iti tii iii iii titi i iii ii iii iii ii. 
~$X=. 5; SAVE CURRENT LOCATION 
.=24 7:SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ::FOR APT START UP 
.=44 :;POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ;;POINT TO APT HEADER BLOCK 
-=.$X  ;;RESET LOCATION COUNTER 
TIT T TTI iit iis atta e citi a ite tiie i iii iii iii iii iii is) 
: SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


SAPTHD: 

$HIBTS: .WORD 0 3;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
SMBADR: .WORD S$MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
STSTM: .WORD 1 ;;RUN TIM OF LONGEST TEST 


SPASTM: .WORD 2 ee Fr IN SECS. OF 1ST PASS ~ 1 UNIT (QUICK VERIFY) 
SUNITM: .WORD 2 TIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 


. WORD SeTEND-SHAILZ2 ;;LENGTH MAILBOX~ETABLE (WORDS) 


SEQ 0023 


fz 
| 
' 
' 


oes we FCTNL TST 2 


0 

001114 
001114 
001114 000000 
001116 000 
001117 000 
001120 000000 
001122 000000 
001124 000000 
001126 000000 
001130 00 
001131 00 
001132 000000 
001134 000000 
001136 000000 
001140 000000 
001142 000000 
001144 000000 
001146 000000 
001150 000 
001151 000 
001152 000000 
001154 177570 
001156 177570 
001160 177560 
001162 177562 
001164 177564 
001166 177566 
001170 000 
001171 002 
001172 012 
001173 000 
001174 000000 
001176 000000 
001200 000000 
001202 000000 
0012 000000 
001206 000000 
001210 000000 
001212 20 377 
001216 077 
001217 015 
001220 012 000 
001222 
001222 000000 
001224 000000 
001226 000000 


L 2 
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377 


-SBTTL COMMON TAGS 


SERRA RARER ERE REAR AETE EAE KA THREAT e 


SeTHIS TABLE gd — COMMON STORAGE LOCATIONS 
:*USED IN THE PROGR 


- = TAGADR 
SCMTAG vorD 0 3zSTART OF COMMON TAGS 
STSTNM: .BYTE 0 :;CONTAINS THE TEST NUMBER 
SERFLG: .BYTE 0 ::CONTAINS ERROR FLAG 
SICNT: .WORD 0 ::CONTAINS SUBTEST ITERATION COUNT 
SLPADR: .WORD 0 ::CONTAINS SCOPE LOOP ADDRESS 
SLPERR: .WORD 0 ::CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0 ::CONTAINS TOTAL ERRORS DETECTED 
SITEMB: .BYTE 0 ::CONTAINS ITEM CONTROL BY 
SERMAX: .BYTE 1 ::CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 ::CONTAINS PC OF LAST ERROR INSTRUCTION 
SGDADR: .WORD 0 ::CONTAINS ADDRESS OF ‘GOOD’ DATA 
SBDADR: .WORD 0 ;:CONTAINS ADDRESS OF ‘BAD' DATA 
SGDDAT: .WORD 0 He le *G00D' ty 
SBDDAT: .WORD 0 TAINS "BAD' DAT 
eect : ERESERVED=-NOT TO Be USED 

$AUTOB: .BYTE 0 ; AUTOMATIC MODE INDICATOR 
SINTAG: yh :: INTERRUPT MODE INDICATOR 

R: WORD DSWR ;;ADDRESS OF SWITCH REGISTER 
DISPLAY: ,WORD DDISP ; ADDRESS OF DISPLAY REGISTER 

TKS: 177560 ::TTY KBD STATUS 
$TKB: 177562 i: TTY KBD BUFFER 
$TPS: 177564 TTY PRINTER STATUS REG. ADDRESS 
$TPB: 177566 ::TTY PRINTER BUFFER REG. ADDRESS 
$NULL: .BYTE 0 ;:CONTAINS NULL CHARACTER FOR FILLS 
SFILLS: .BYTE 2 ::CONTAINS # OF FILLER CHARACTERS wir tee 
SFILLC: .BYTE 12 + INSERT FILL CHARS. AFTER A ‘'LINE FEED"’ 
STPFLG: .BY 0 i3'"TERMINAL AVAILABLE"’ FLAG (BIT<07>50- YES) 
STMPO: .WORD 0 ;;USER DEFINED 
STMP1: .WORD 0 ;;USER DEFINED 
STMP2: .WORD 0 ;;USER DEFINED 
STMP3: .WORD 0 ;;USER DEFINED 
STMP4: .WORD 0 ;USER DEFINED 
STIMES: 0 i 3MAX. NUMBER OF ITERATIONS 
SESCAPE:0 7 sESCAPE ON ERROR ADDRESS 

ora: -ASCIZ Sey eterertares 7:CODE FOR ait 

QUES: .ASCI1 : ;QUESTION 

SCRLF: ASCII <i$> +3 CARRIAGE RETURN 
SLF: eASCIZ = <12> sLINE FEED 


ITITITITITITLLI TLL LLL LLL ELLE LLL 


“SBTTL APT MAILBOX-ETABLE 


Py eeeeeeeeeeeeeeeeeeeeeeeee eee eeee eee eKeekeeeeeeeeeeee ee 


SMAIL 7 APT MAIL vox 

SMSGTY: .WORD AMSGTY oy ti gy YPE CODE 
SFATAL: .WORD AFATAL AL ERROR NUMBER 
STESTN: .WORD ATESTN iitest NUMBER 


SEQ 0024 


7 
| CZRMNAO BROS /3/2 ferme TST 2 


| APT MAILBOX-ETAB 
001230 


000000 


000000 


000 
000 


000000 
000 

0 
000000 
0 
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Se Se GRE: Oe Oe He oe oe 
seen Beene enenee 
—> 
=z 
wn 
— 


.MEXIT 


ACPUOP 


AMAMS1 
AMTYP1 


AMADR1 
AMAMS2 


M 2 
PAGE 5-1 


+3 PASS COUNT 


1/04= 1! 14/052 02,11/20=03,11/40=04,11/45=05 


11/70=06, srg 0=10 


BIT 10=REAL TIME 

BIT 9=FLOATING POINT + aire 
BIT 8=MEMORY MANA 

; HIGH a og Ms S. BYTE 

;;MEM. TYPE,BLK 

MEM. TYPE BYTE == (HIGH BYTE) 


900 NSEC CORE=001 
300 eeEe BIPOLAR=002 


500 NSEC MOS=003 
:;HIGH ADDRESS, 
MEM.LAST 


S:NIGH ADDRESS ,M.S. BYT 

7; MEM. TYPE ,BLKA2 

nee LAST nie et BLK#2 
H_ ADDRESS ,M.S.BYTE 

INEM. TYPE ,BLKA3 

>;MEM.LAST ADDRESS, ee 


BLK 
:;MEM.LAST ADDRESS ,BLK#4 
:; INTERRUPT VECTOR#1,BUS PRIORITY#1 
>; INTERRUPT VECTOR#2BUS PRIORI TY#2 
a ovice RAP OF EQUIPMENT UNDER TEST 


l 
;:CONTROLLER DESCRIPTION WORDA1 
fo ths ee ee scant ton WORDM2 
ICE DESCRIPTOR WORD#O 


v 
;:DEVICE DESCRIPTOR WORDA1 
:;DEVICE DESCRIPTOR WORD#2 
;;DEVICE DESCRIPTOR WORD#S 
;;DEVICE DESCRIPTOR WORDM4 
;;DEVICE DESCRIPTOR WORDS 
;:DEVICE DESCRIPTOR WORD#6 
;;DEVICE DESCRIPTOR WORD#7 


BLKA1 
ADDR. =3 gt So »THIS WORD AND LOW OF ‘'TYPE"’ ABOVE 


SEQ 0025 


? “et sh, X N 2 
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| USER DEFINED TAGS SEQ 0026 
0 ~-SBTTL USER DEFINED TAGS 
001326 000000 CTLFG: .WORD 0 sCONTAINS CONTROL-C FLAG 
001330 000000 XXDP: .WORD 0 Bh LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 


; THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 
i PxnpP DE DEVICE CODE FOR THE RMO5/3/2. 


THE REGISTER OUTPUT BUFFER IS USED FOR 
ASSEMBLING DATA GOING TO REGISTER 


001410 PUTBUF : 
peeeisnee OUTPUT BUFFER 
10: .WORD 


| 
| 
| 001332 000 LSTRK: .BYTE 0 BY 
001333 000 "BYTE 0 HI] BYTE, CONTAINS LAST TRACK ADDRESS OF UNIT 
SUNDER TEST. RMO2/3 = 4., RMOS = 18. 
;THE REGISTER INPUT BUFFER IS USED FOR 
:STORING DRIVE STATUS 
| 001334 GE TBUF : 
| REGISTER INPUT BUFFER 
| 001334 000000 RMCSI1: .WORD 0 sCONTROL, STATUS REGISTER #1 
001336 000000 RMWCI: .WORD 0 ‘WORD COUNT REGISTER 
| 001340 000000 RMBA1: .WORD 0 ‘BUS ADDRESS REGISTER 
001342 000000 RMDAI: .WORD 0 “DISK ADDRESS REGISTER 
001344 000000 RMCS21: .WORD 0 “CONTROL, STATUS REGISTER #2 
001346 000000 RMDS I 0 “DRIVE STATUS REGISTER 
001350 000000 RMERII]: .WORD 0 TERROR REGISTER #1 
001352 000000 RMASI: .WORD 0 ATTENTION SUMMARY REGISTER 
| 001354 000000 RMLAI: .WORD 0 ;LOOK AHEAD REGISTER 
001356 000000 RMDBI: .WORD 0 [DATA BUFFER 
| 360 000000 RMMRI]: [WORD 0 ‘MAINTENANCE REGISTER #1 
001362 000000 RMDTI: .WORD 0 [DRIVE TYPE REGISTER 
| 001364 000000 RMSNI: 0 ;SERIAL NUMBER REGISTER 
366 000000 RMOFI: .WORD 0 [OFFSET REGISTER 
001370 000000 RMDCI: .WORD 0 SDESIRED CYLINDER REGISTER 
001372 000000 RMHRI: .WORD 0 THOLDING REGISTER 
001374 000000 MM WORD 0 ‘MAINTENANCE REGISTER #2 
001376 000000 RMER2I1: .WORD 0 TERROR REGISTER #2 
001400 000000 RMECTI: .WORD 0 ‘ECC POSITION REGISTER 
| 001402 000000 RMEC2I: . 0 C PATTERN REGISTER 
001404 000000 RMBAEI: .WORD 0 :BUS ADDRESS EXTENSION REGISTER 
001406 000000 RMCS3]: .WwORD 0 ;CONTROL, STATUS REGISTER #3 
| 
| 
001410 000000 RMCS10: 0 CONTROL, STATUS REGISTER #1 
001412 000000 RMWCO: WORD 0 ‘WORD COUNT REGISTER 
001414 000000 RMBAO: :WORD 0 'BUS ADDRESS REGISTER 
001416 000000 RMDAO: .WORD 0 [DISK ADDRESS REGISTER 
001420 RMCS20: .WORD 0 :CONTROL, STATUS REGISTER #2 
001422 000000 RMDSO: .WORD 0 ‘DRIVE STATUS REGIST 
001424 000000 RMERIO: .WORD 0 TERROR REGISTER #1 
001426 00 RMASO: .WORD 0 SATTENTION SUMMARY REGISTER 
001430 000000 RMLAO: .WORD 0 ‘LOOK AHEAD REGISTER 
001432 000000 RMDBO: WORD 0 ‘DATA BUFFER 
007434 000000 RMMR10: .WORD 0 “MAINTENANCE REGISTER #1 
tens» 001436 000000 RMDTO: WORD 0 [DRIVE TYPE REGISTER 


(ot ee a 


| CERMNAO. RMOS/3/2 FCTNL TST 2 
USER DEFINED TAGS 


401440 000000 


001462 000000 


001464 000000 


001506 000000 


001510 000000 


-000000 


000000 


001522 


001551 
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RMSNO: .WORD 0 ;SERIAL NUMBER REGISTER 
RMOFO: .WORD 0 ;OFFSET REGISTER 
RMDCO: .WORD 0 sDESIRED CYLINDER REGISTER 
HRO: .WORD 0 HOLDING REGISTER 
RMMR20: .WORD 0 sMAINTENANCE REGISTER #2 
RMER2O: .WORD 0 sERROR REGISTER #2 
RMECIO: .WORD 0 sECC POSITION REGISTER 
RMEC20: . 0 ;ECC PATTERN REGISTER 
RMBAEO: .WORD 0 ;BUS ADDRESS EXTENSION REGISTER 
RMCS30: .WORD 0 sCONTROL, STATUS REGISTER #3 


sEACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
;THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
sFIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST 

s1N THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE 

END OF THE QUE. 
TSTQUE: .WORD 0 aeeet ak DEVICE POINTER 

-BLKW 

-WORD 0 
ALL 8. DEVICES ARE UNDER TEST. 


at ENABLE IS SET IF THE BAD SECTOR FILES aes BEEN RECOVERED 


R THE UNIT UNDER TEST, OTHERWISE IT IS ZERO 
hEDENB: -WORD 0 sMEDIA ENABLE 


;LOCATIONS ‘‘ASNDC'' AND ‘'ASNDC"' oten an vy CYLINDER, TRACK AND SECTOR 


ADDRESS ASSIGNED BY THE BAD wont A DU 

ASNDC: .WORD 0 ASSIGNED DESIRED CYLINDER 

: ASSIGNED TRACK, AND SECTOR 
CLKADR: .WORD 0 [UNIBUS ADDRESS OF KW11 CLOCK 
CLKVCT: .WORD 0 :VECTOR ADDRESS OF KW11 CLOCK 


THE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH 
sARE READ BY THE GET SUBROUTINE. THE LIST IS TERMINATED BY 
sA_NEGATIVE BYTE. 

GETINX: .BLKB 2 GET INDEX TABLE 


:THE PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH 
SARE WRITTEN 7 THE PUT SUBROUTINE. THE LIST IS TERMINATED BY 
sA_NEGATIVE BYTE. 
PUTINX: .BLKB ;PUT INDEX TABLE 


PUT TAGS HERE 


8. ;TEST QUE FOR DEVICES UNDER TEST 
;TABLE TERMINATOR GOES HERE WHEN 


SEQ 0027 


C¢ 3 
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_ ERROR POINTER TABLE SEQ 0028 
0 -SBTTL ERROR POINTER TABLE 
;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR [wat CAN OCCUR. 
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
; *LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
>*NOTE1: 1F SITEMB IS 0 THE ONLY PERTINENT DATA IS (S$ERRPC). 
 *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
:* EM 7 Cointe TO THE ERROR MESSAGE 
3° DH POINTS TO THE DATA HEADER 
3 DT POINTS TO THE DATA 
se DF I POINTS TO THE DATA FORMAT 
' 001600 $ERRTB 
2 
; ERROR 1 WRONG UNIT SELECTED 
1600 065144 EMT1 
001602 071236 EHT1 
001604 071362 EDT] 
001606 071452 EFT] 
5 
$ sERROR 2 DEVICE WENT UNAVAILABLE 
001610 065150 EMT2 
001612 071236 EHT1 
001614 071362 EDT1 
001616 071452 EFT] 
8 
m ERROR 3 DEVICE WENT NONEXISTENT 
001620 065156 EMT3 
001622 071236 EHT1 
001624 071362 EDT] 
001626 071452 EFT1 
11 
‘¢ ERROR 4 CONTROLLER NOT READY 
001630 065164 EMT4 
001632 071236 EHT1 
001634 071362 EDT1 
001636 071452 EFT1 
14 - 
+4 ERROR 5 DRIVE NOT READY AND GO NOT RESET 
001640 065172 EMTS 
001642 071236 EHT1 
001644 071362 EDT1 
001646 071452 EFT1 


f , Rec PES, i, ! >» 3 
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ERROR POINTER TABL SEQ 0029 
8 sERROR 6 UNEXPECTED VALUE FOR ‘‘ATA'' STATUS 
001650 065200 EMT6 
001652 071236 EHT1 
001654 071362 EDT! 
001656 071452 EFT1 
Pa 
21 sERROR 7 BUS TIMEOUT TRYING TO READ OR WRITE REGISTER 
001660 065206 EMT7 
001662 000000 0 
001664 000000 0 
001666 000000 0 
23 
$3 ERROR 10 DRIVE NOT READY BUT GO IS RESET 
001670 065214 EMT10 
001672 071236 EHT1 
001674 071362 EDT1 
001676 071452 EFT 
26 
7 zERROR 11 GO NOT RESET BUT DRIVE IS READY 
001700 065220 EMT11 
001702 071236 EHT1 
001704 071362 EDT] 
001706 071452 EFT 
29 
4 ERROR 12 INCORRECT FUNCTION CODE 
001710 065224 EMT12 
001712 071236 EHT1 
001714 071362 EDT1 
001716 071452 EFT] 
32 
tz ERROR 13 PARITY ERROR READING REMOTE REGISTERS 
001720 065232 EMT13 
001722 071236 EHT1 
001724 071362 EDT] 
001726 071452 EFT 
35 
6 ERROR 14 TRANSFER ERROR IS INCORRECT 
001730 065244 EMT14 
001732 071236 EHT1 
001734 071362 EDT} 
001736 071452 EFT) 
38 


39 ERROR 15 INCORRECT WORD COUNT 


CZRMNAO RMOS/3/2 FCTNL TST 2 MACRO V03.01 11-APR-80 13:17:48 PAGE 2 
ERROR POINTER TABLE 


0 
001740 


065252 EMT15 
001742 071236 EHTI 
001744 071862 EDTI 
001746 071452 EFTI 
4) 
42 SERROR 16 INCORRECT BUS ADDRESS 
” 001750 065260 EMTI6 
01752 071236 EHTI 
001754 071862 EDTI 
001756 071452 EFT! 
44 
45 ERROR 17 INCORRECT LBT STATUS 
001760 065270 EMT17 
001762 071236 EHTI 
001764 0713862 EDTI 
001766 071452 EFTI 
47 
48 sERROR 20 INCORRECT AOE 
001770 065300 EMT20 
001772 071236 EHTI 
001774 071362 EDTI 
001776 071452 EFT! 
50 
2) sERROR 21 INCORRECT DISK ADDRESS 
002000 065310 EMT21 
002002 071236 EHTI 
002004 071362 EDT1 
071452 EFT! 
53 
54 sERROR 22 INCORRECT CYLINDER ADDRESS 
002010 065320 EMT22 
002012 071236 EHTI 
002014 071862 EDT 
002016 071452 EFTI 
56 
+4 ERROR 23 INCORRECT WLE STATUS 
002020 065330 EMT23 
002022 071236 EHTI 
002024 071362 EDT! 
002026 071452 EFTI 
59 
60 SERROR 26 INCORRECT UPE STATUS 


SEQ 0030 


002036 
62 


002040 


CZRMNAO RMOS/3/2 FCTNL TST 2 
ERROR POINTER TABLE 


065430 


ERROR 


ERROR 


; ERROR 


ERROR 


ERROR 


ERROR 


; ERROR 


- 
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INCORRECT WCF STATUS 


INCORRECT WCE STATUS 


INCORRECT MDPE STATUS 


INCORRECT DCK STATUS 


INCORRECT ECH STATUS 


DLT SHOULD NOT BE SET 


MXF SHOULD NOT BE SET 


SEQ 0031 


CZRMNAO RMO5/3/2 FC 
ERROR POINTER TABLE 
002122 071236 
002124 071362 
002126 071452 
83 
84 
85 
002130 065440 
002132 071236 
02134 071362 
002136 071452 
86 
87 
88 


002146 071452 


002150 065460 


002156 071452 


002160 065470 


CTNL TST 2 


;ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


;ERROR 


; ERROR 


6 3 
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DTE SHOULD NOT BE SET 


INCORRECT HCRC STATUS 


INCORRECT HCE STATUS 


INCORRECT FER STATUS 


DPE SHOULD NOT BE SET (NOT A DATA COMMAND) 


LOST ""MOL"’ DURING PACK ACKNOWLEDGE 


UNSAFE ERROR DURING PACK ACKNOWLEDGE 


SEQ 0032 


 CZRMNAO RMO 
ERROR POINT 


T 
4 
6 


3/ 


071362 


;ERROR 


; ERROR 


sERROR 


ERROR 


ERROR 


ERROR 


; ERROR 


"OPI" ERROR DURING PACK ACKNOWLEDGE 


""RMR'’ ERROR DURING PACK ACKNOWLEDGE 


“ILR'’ ERROR DURING PACK ACKNOWLEDGE 


“"ILF’’ ERROR DURING PACK ACKNOWLEDGE 


COMPOSITE ERROR STATUS IS INCORRECT 


PARITY ERROR WRITING REMOTE REGISTERS 


INCORRECT [AE STATUS DURING SEEK COMMAND 


SEQ 0033 


a oe hi ee 
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ERROR POINTER TABLE SEQ 0034 
002306 071452 EFTI 
125 
<6 ERROR 52 OPI] ERROR DURING SEEK = MEDIUM IS NOT ON LINE 
002310 065620 EMTS2 
002312 071236 EHT] 
002314 071362 EDT1 
002316 071452 EFTI 
128 
129 ZERROR 53 OPI ERROR DURING SEEK = MEDIUM IS ON LINE, ASSUME 
1 : ON CYLINDER LATCH DIDN'T RESET 
002320 065636 EMTS3 
002322 071236 EHT1 
002324 071362 EDT] 
002326 071452 EFT 
132 
‘ez ERROR 54 SEEK INCOMPLETE ERROR DURING SEEK COMMAND 
002330 065654 EMTS4 
002332 071236 ExT1 
002334 071362 EDT1 
2336 071452 EFT1 
135 
139 sERROR 55 DEVICE CHECK DURING SEEK COMMAND 
002340 065664 EMTS5 
002342 071236 EHT1 
002344 071362 EDT1 
002346 071452 EFT1 
138 
$4 ZERROR 56 PIP IS STILL SET AFTER SEEK = SKI IS RESET 
002350 065676 EMT56 
002352 071236 EHT1 
002354 071362 EDT1 
002356 071452 EFT 
14! 
i sERROR 57 ATA DID NOT SET DURING SEEK COMMAND 
002360 065714 EMTS7 
002362 071236 EHT1 
002364 071362 EDT1 
071452 EFT 
144 
145 sERROR 60 IVC ERROR DURING SEEK COMMAND - LOST 
Fe : VOLUME VALID 
002370 065724 EMT60 
02372 071236 EHT1 


CZRMNAO RMO5S/3/2 FCTNL TST 2 


ERROR POINTER TABLE 


002374 
002376 


002416 


002420 


002426 


002430 


071452 


066040 


071452 


066052 
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ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


ERROR 


ERROR 


ERRONEOUS IVC ERROR DURING SEEK COMMAND - 
VOLUME VALID IS STIL SET 


MOL 1S ZERO, BUT OPI WAS NOT 
REPORTED DURING SEEK COMMAND 


UNUSED 


DRIVE DID NOT DETECT “‘IVC’’ ERROR DURING SEEK 


DRIVE EXECUTED A SEEK WITH ERROR SET 


UNEXPECTED ERROR SET IN RMERI 


UNEXPECTED ERROR SET IN RMER2 


SEQ 0035 


 CZRMNAO RMOS/3/2 FCTNL TST 2 


ERROR POINTER TABLE 


002462 
002464 
002466 


002470 


002476 


002500 
002502 


002550 


071236 
071362 
071452 


071452 


066104 


066170 


K 3 
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7 ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


; ERROR 


; ERROR 


ERRONEOUS ''IAE'’ ERROR DURING RECALIBRATE 


“ILF’’ ERROR DURING RECALIBRATE 


“OPI"’ ERROR DURING RECALIBRATE DUE TO ‘'MOL"’ = 


“OP1'’ ERROR DURING RECALIBRATE BECAUSE ON 
CYLINDER DIDNT DROP 


"IVC" ERROR DURING RECALIBRATE = ‘‘vv"* = 0 


ERRONEOUS ‘‘IVC'’ ERROR DURING RECALIBRATE - ‘'vv"" 


“SKI'’ ERROR DURING RECALIBRATE 


1 


SEQ 0036 


- CZRMNAO meets a TST 2 
ERROR POINTER T 


1236 
62 


ANNO 


L 3 
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; ERROR 


ERROR 


; ERROR 


ERROR 


; ERROR 


;ERROR 


;ERROR 


102 


“DVC"’ OCCURRED DURING RECALIBRATE 


LOST ‘‘MOL'’ DURING RECALIBRATE = ‘‘OPI'' = 0 


LOST ‘'vV"' DURING RECALIBRATE = ‘‘IvC'' = 0 


ATA" DID NOT SET DURING RECALIBRATE 


OM’ DID NOT RESET DURING RECALIBRATE 


“PIP IS STIL SET AFTER RECALIBRATE 


UNEXPECTED “‘ILR'’ ERROR DURING RECALIBRATE 


SEQ 0037 


_ ——— 


CZRMNAO RMO5/3/2 FCTNL TST 2 


ERROR POINTER TABLE 


002644 
002646 


00273 
00273 
002754 


071362 
071452 


071452 


066346 


071470 


066360 


ERROR 


; ERROR 


; ERROR 


;ERROR 


; ERROR 


ERROR 


; ERROR 


113 


| M3 
MACRO VO03.01 11-APR=80 13:17:48 PAGE 7-10 


UNEXPECTED ‘'RMR'’ ERROR DURING RECALIBRATE 


"UNS'' ERROR DURING RECALIBRATE = AC POWER IS LOW 


CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS 


NONEXISTENT DEVICE 


DEVICE NOT AVAILABLE 


BUS TIMEQUT-NED STATUS FAILURE 


DEVICE NOT AN RMO05S/3/2 


SEQ 0038 


CZRMNAO RMO5/3/2 a. TST 2 
ERROR POINTER TAB 


002736 071474 


235 

236 

237 
002740 066416 
002742 071236 
002744 071362 
002746 071452 

238 

239 

240 
002750 066426 
002752 071236 
002754 071362 
002756 071452 

241 

242 

243 


002760 066436 


002766 071452 


002770 066446 
1236 


MACRO v03.01 11-APR-80 


7 ERROR 


s ERROR 


ERROR 


; ERROR 


; ERROR 


7 ERROR 


; ERROR 


EFTIIG 


117 


N 3 
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RMCS1 NOT INITIALIZED BY UNIBUS 


RMBA NOT INITIALIZED BY UNIBUS 


RMCS2 NOT INITIALIZED BY UNIBUS 


RMER1 NOT INITIALIZED BY UNIBUS 


RMAS NOT INITIALIZED BY UNiBUS 


RMMR1 NOT INITIALIZED BY UNIBUS 


RMDS NOT INITIALIZED BY UNIBUS 


SEQ 0039 


inennieclcioniepiinciheenipenigitatanasiniaigtit . : ? 
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ERROR POINTER TABLE SEQ 0040 
256 
aH sERROR 124 RMEC2 NOT INITIALIZED BY UNIBUS 
003030 066506 EMT124 
003032 071236 EHT1 
003034 071362 EDT! 
003036 071452 EFT 
| 259 
| $60 sERROR 125 RMMR2 NOT INITIALIZED BY UNIBUS 
| 003040 066516 EMT125 
003042 071236 EHT1 
| 003044 071362 EDT1 
| 003046 071452 EFT 
262 
| 265 sERROR 126 RMCS1 NOT CLEARED BY CONTROLLER CLEAR 
003050 066526 EMT126 
003052 071236 EHT1 
003054 071362 EDT 
003056 071452 EFT 
265 
66 sERROR 127 RMBA NOT CLEARED BY CONTROLLER CLEAR 
003060 066540 EMT127 
003062 071236 HT1 
64 071362 EDT1 
003066 071452 EFT 
268 
44 sERROR 130 RMCS2 NOT CLEARED BY CONTROLLER CLEAR 
003070 066552 EMT130 
003072 071236 EHT1 
003074 071362 EDT1 
003076 071452 EFi1 
ir, 
| $i¢ sERROR 131 RMER1 NOT CLEARED BY CONTROLLER CLEAR 
| 003100 066564 EMT131 
003102 071236 EHT1 
003104 071362 EDT1 
| 003106 071452 EFT 
be om 
| 44 sERROR 132 RMAS NOT CLEARED BY CONTROLLER CLEAR 
003110 066576 EMT132 
003112 071236 HT1 
003114 071362 EDT! 
003116 071452 EFT 


fo C4 
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ERROR POINTER TABLE SEQ 0041 
277 
sve sERROR 133 RMMR1 NOT CLEARED BY CONTROLLER CLEAR 
003120 066610 —MT133 
003122 Br 1E28 EXT] 
003124 071362 EDT1 
003126 071452 EFTI 
280 
$3 ERROR 134 RMDS NOT CLEARED BY CONTROLLER CLEAR 
003130 066622 EMT134 
003132 071236 EHT1 
003134 071362 EDT1 
003136 071452 EFTI 
283 
$e sERROR 135 RMEC2 NOT CLEARED BY CONTROLLER CLEAR 
3140 066634 EMT135 
003142 071236 EHT1 
003144 071362 EDT1 
003146 071452 EFT 
286 
44 ERROR 136 RMMR2 NOT CLEARED BY CONTROLLER CLEAR 
003150 066646 EMT136 
003152 071236 EHT1 
003154 071362 EDT1 
003156 071452 EFT1 
289 
331 ERROR 137 RMCS1 NOT CLEARED BY ERROR CLEAR 
003160 066660 —M1T137 
003162 071236 
3164 071362 EDT} 
003166 071452 EFT1 
292 
3 ERROR 140 RMCS2 NOT CLEARED BY ERROR CLEAR 
003170 066670 EMT140 
003172 071236 EHT1 
003174 071362 EDT1 
003176 071452 EFT1 
295 
44 ERROR 141 RMCS1 NOT CLEARED BY DRIVE CLEAR 
003200 066700 EMT141 
003202 071236 EHT1 
003204 071362 EDT! 
3206 071452 EFT1 


‘ ; 
| CZRMNAO RMOS/3/2 1 ee TST 2 


_ ERROR POINTER TABLE 


299 
300 


ERROR 


; ERROR 


s ERROR 


ERROR 


; ERROR 


;ERROR 


ERROR 


; ERROR 
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RMDS NOT CLEARED BY DRIVE CLEAR 


RMER1 NOT CLEARED BY DRIVE CLEAR 


RMAS NOT CLEARED BY DRIVE CLEAR 


RMMR1 NOT CLEARED BY DRIVE CLEAR 


RMMR2 NOT CLEARED BY DRIVE CLEAR 


RMER2 NOT CLEARED BY DRIVE CLEAR 


RMEC2 NOT CLEARED BY DRIVE CLEAR 


MEDIUM NOT ON LINE 


SEQ 0042 


eee cea 4 
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| ERROR POINTER TABLE 


321 
003300 067000 —EMT151 
003302 071236 EHT1 
003304 071362 EDT} 
003306 071452 EFT! 
322 
323 ;ERROR 152 
324 
003310 067012 EMT152 
003312 071236 EHT1 
003314 071362 EDT! 
003316 071452 EFT1 
325 
326 sERROR 153 
327 
3320 067024 —EM1T153 
003322 071236 EHT1 
003324 071362 EDT! 
003326 071452 EFT1 
328 
329 sERROR 154 
330 
003330 067042 EMT154 
003332 071236 EHT1 
003334 071362 EDT! 
003336 071452 EFTI 
331 
332 sERROR 155 
333 
003340 067060 EMT155 
003342 071236 
003344 071362 EDT! 
3346 071452 EFT! 
334 
335 sERROR 156 
336 
33 067072 EMT156 
003352 071236 EHT1 
33 071362 EDT1 
003356 071452 EFT! 
337 
338 sERROR 157 
339 
003360 067104 —EMT157 
003362 071236 EHT1 
003364 071362 EDT! 
003366 071452 EFTI 


340 
341 ERROR 160 
342 


DRIVE FAULT 


UNSAFE SHOULD BE SET BECAUSE DvC IS SET 


UNSAFE SHOULD NOT BE SET, AC IS LOW 


VOLUME VALID NOT SET BY PACK ACK 


OFFSET MODE NOT SET BY OFFSET COMMAND 


OFFSET MODE NOT RESET BY RTC COMMAND 


RMOF NOT RESET BY RIP COMMAND 


SEQ 0043 


CZRMNAO RMOS/3/2 FC 
ERROR POINTER TABLE SEQ 0044 
003370 067116 EMT160 
003372 071236 EHT1 
003374 071362 EDT1 
003376 071452 EFT! 
43 
re ERROR 161 RMDA NOT RESET BY RIP COMMAND 
003400 067126 —EMT161 
003402 071236 EHT1 
003404 071362 EDT} 
003406 071452 EFT1 
346 
4 ERROR 162 RMDC NOT RESET BY RIP COMMAND 
003410 067140 EMT162 
003412 071236 EHT1 
003414 071362 EDT1 
003416 071452 EFT 
349 
350 ZERROR 163 DATA WAS ECC CORRECTED BUT DOES NOT COMPARE WITH 
351 : WRITE BUFFER 
003420 071032 EMT 336 
003422 071320 EHT336 
003424 071416 EDT336 
003426 071506 EFT 336 
353 
re ERROR 164 OP1 SHOULD NOT BE SET 
003430 067162 EMT 164 
003432 071236 EHT1 
3434 071362 EDT1 
003436 071452 EFT) 
356 
44 ERROR 165 IvC SHOULD NOT BE SET 
003440 067170 EMT165 
003442 071236 HT 
003444 071362 EDT1 
003446 071452 EFT] 
359 
ERROR 166 JAE SHOULD NOT BE SET 
003450 067176 EMT166 
003452 071236 EXT] 
003454 071362 EDT! 
003456 071452 EFT] 
362 
363 ERROR 167 NEM SHOULD NOT BE SET 


CZRMNAO RMOS/3/2 FCTNL TST 2 
ERROR POINTER TABLE 


003550 


067272 


;ERROR 


; ERROR 


ERROR 


;ERROR 


; ERROR 


; ERROR 


ERROR 


176 
EMT176 
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UNUSED 


ATA’ NOT SET DURING RETURN TO CENTERLINE 


"ATA NOT SET BY OFFSET COMMAND 


RMER2 NOT INITIALIZED BY UNIBUS INIT 


RMER2 NOT INITIALIZED BY CONTROLLER CLEAR 


SELECTED DEVICE IS IN WRITE PROTECT 


CANNOT SET DIAGNOSTIC MODE 


SEQ 0045 


CZ7RMNAO pi tha FCTNL TST 2 


ERROR POINTER T 


003552 
003554 
003556 


003560 


003566 


003570 


ABLE 

071236 
071362 
071452 


H 4 
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; ERROR 


7; ERROR 


s ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


205 
EMT205 
EXHT1 


INCORRECT ‘'MOL"’ STATUS DURING DIAGNOSTIC MODE 


INCORRECT ‘'PIP*’ 


INCORRECT ‘‘WRL"’ 


INCORRECT *'SKI"' 


INCORRECT ‘‘DvC"’ 


STATUS DURING DIAGNOSTIC MODE 


STATUS DURING DIAGNOSTIC MODE 


STATUS DURING DIAGNOSTIC MODE 


STATUS DURING DIAGNOSTIC MODE 


“vv'" WAS NOT RESET BY MAINTENANCE UNIT READY 


SELECTED DEVICE HAS A PERSISTENT ‘’SKI"’ ERROR 


SEQ 0046 


003644 
003646 


CZRMNAO RMOS/3/2 FCTNL TST 2 
ERROR POINTER TABLE 


ERROR 


ERROR 


; ERROR 


ERROR 


; ERROR 


; ERROR 


s ERROR 


1 4 
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“LBC’’ DID NOT SET DURING DIAGNOSTIC MODE 


UNEXPECTED LOSS OF ‘‘MOL'' = MEDIUM IS OFF LINE 


UNEXPECTED LOSS OF VOLUME VALID = “'vv"' = 0 


UNEXPECTED MECHANICAL MOTION = ‘'PIP’' = 1 


UNEXPECTED DEVICE FAULT = ‘DvC’’ = 1 


UNEXPECTED SEEK INCOMPLETE ERROR = ‘’SKI"’ = 1 


DRIVE EXECUTED A RECALIBRATE WITH ERROR SET 


SEQ 0047 


CZRMNAO RMOS/3/2 FCTNL TST 2 


ERROR POINTER TABLE 
003736 071462 


2 
004026 


J 4 
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; ERROR 


ERROR 


; ERROR 


ERROR 


; ERROR 


ERROR 


s ERROR 


EFT2 


215 
EMT215 


216 


DRIVE DID NOT DETECT ‘‘IVC'’ ERROR DURING RECALIBRATE 


INCORRECT “‘IVC"’ STATUS 


INCORRECT “‘IAE'* STATUS 


INCORRECT ‘WLE’’ STATUS 


INCORRECT ‘'OPI'’ STATUS 


RM DID NOT DETECT RMR ERROR 


RM DID NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS 


SEQ 0048 


j SPREE K 4 
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ERROR POINTER TABLE SEQ 0049 
449 
ry ERROR 224 UNUSED 
004030 000000 0 
004032 000000 0 
004034 000000 0 
004036 000000 0 
452 
oar ERROR 225 UNUSED 
004040 000000 0 
004042 000000 0 
004044 000000 0 
004046 000000 0 
455 
<2 ERROR 226 UNUSED 
004050 000000 0 
004052 000000 0 
004054 000000 0 
004056 000000 0 


459 ERROR 227 UNUSED 
004060 000000 


004066 000000 


461 , 
rr | sERROR 230 UNUSED 
004070 000000 0 
004072 000000 0 
004074 000000 0 
004076 00000: 0 
464 
465 sERROR 231 UNUSED 
466 
004100 000000 0 
004102 000000 0 
004104 000000 0 
004106 000000 0 
467 
468 sERROR 232 UNUSED 
469 
004110 0000 0 
004112 0000 0 
004114 000000 0 
004116 0000 0 


L 4 
CZRMNAO RMO5/3/2 FCTNL TST 2 MACRO V03.01 11-APR-80 13:17:48 PAGE 7-22 
ERROR POINTER TABLE SEQ 0050 


- 
| 
| 
j 


j 
' 
j 


470 
re ERROR 233 UNUSED 
004120 000000 0 
004122 000000 0 
004124 000000 0 
004126 000000 0 
473 
i ERROR 234 UNUSED 
004130 000000 0 
004132 000000 0 
004134 000000 0 
004136 000000 0 
476 
ry As ERROR 235 UNUSED 
004140 000000 0 
004142 000000 0 
004144 000000 0 
004146 000000 0 
479 
rr 3} ERROR 236 UNUSED 
004150 000000 0 
004152 000000 0 
004154 000000 0 
004156 000000 0 
482 
az? ERROR 237 UNUSED 
004160 000000 0 
004162 000000 0 
004164 000000 0 
004166 000000 0 
485 
ae ERROR 240 UNUSED 
004170 000000 0 
604172 000000 0 
004174 000000 0 
004176 000000 0 
488 
“89 ERROR 241 UNUSED 
004200 000000 0 
004202 000000 0 
004204 000000 0 
004206 000000 0 


Mm 4 
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: ERROR POINTER TABLE SEQ 0051 
49 sERROR 262 UNUSED 
004210 000000 0 
004212 000000 0 
004214 000000 0 
004216 000000 0 
494 
44 sERROR 243 UNUSED 
004220 000000 0 
004222 000000 0 
004224 000000 0 
004226 000000 0 
497 
498 ERROR 244 UNUSED 
499 
004230 000000 0 
004232 000000 0 
004234 000000 0 
004236 000000 0 
500 
44h ERROR 245 UNUSED 
004240 900000 0 
004242 000000 0 
004244 000000 0 
004246 000000 0 
503 
2 ERROR 246 "ATA'' NOT RESET BY GO WHEN “‘ERR'' = 0 
004250 067656 EMT246 
004252 071236 EHT 
004254 071362 EDT1 
4256 071452 EFT 
506 
344 ERROR 247 ATA’ NOT RESET BY WRITING RMAS 
004260 067666 EMT247 
004262 071236 EHT1 
004264 071362 EDT1 
0042 071452 EFT 
50° 
210 ERROR 250 ATA’ WAS RESET BY GO WHEN “ERR'' = 1 
270 067700 —EMT250 
004272 071236 EHT1 
004274 071362 EDT1 
004276 071452 EFTI 
512 ante 
513 ERROR 251 PROGRAM INTERRUPT WAS NOT GENERATED 


por eee 


r — — ee 


| | N 4 
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' ERROR POINTER TABLE SEQ 0052 
514 

004300 067714 EMT251 

004302 071250 EHT2 

004304 071372 EDT2 

004306 071462 EFT2 
515 
| 315 sERROR 252 PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED 
| 004310 067722 EMT252 

004312 071250 EHT2 
| 004314 071372 EDT? 
| 004316 071462 EFT2 ‘ 
| 518 
| 444 ERROR 253 OFFSET MODE WAS NOT RESET BY WRITING RMDC 
004320 057730 EMT253 
004322 071236 EHT1 
| 004324 071362 EDT1 
004326 071452 EFT 
=; 
| 36¢ sERROR 254 INCORRECT “‘ILF'’ STATUS 
| 004330 067746 EMT 254 
| 004332 071236 EHT} 

004334 071362 EDT1 

004336 071452 EFT1 

524 
ac? sERROR 255 INCORRECT “‘ATA'' STATUS 

004340 067756 EMT255 

004342 071236 EHT1 
004344 071362 EDT} 
| 004346 071452 EFT 
527 
| 355 ZERROR 256 INCORRECT "‘ILR'’ STATUS 
004350 067766 EMT256 
004352 071306 EHT256 
004354 071406 EDT223 

004356 071476 F EFT223 
530 
AY sERROR 257 INVALID IAE STATUS DURING SEARCH COMMAND 
| 004360 067776 EMT257 
| 004362 071236 EHT1 

004364 071362 EDT1 

004366 071452 EFTI 


533 
ane sERROR 260 “IvVC'' WAS NOT DETECTED DURING SEARCH COMMAND 


pe ney 


C 
E 


= Rink a memnetnsanienacsin — r : 
ZRMNAO_RMOS/3/2 FCTNL TST 2 MACRO V03.01 11-APR-80 13:17:4 ° 
RROR POINTER TABLE wt: ih onan Poe 


004370 





; ERROR 


; ERROR 


ERROR 


; ERROR 


;ERROR 


;ERROR 


262 


263 


265 


EMT265 
EHT1 


SEQ 0053 


DRIVE EXECUTED SEARCH WITH ERROR SET 


LBC’ ERROR NOT SET DURING DIAGNOSTIC MODE 


"SKI'' ERROR DURING SEARCH COMMAND 


“IVC'' ERROR DURING SEARCH = LOST VOLUME VALID 


ERRONEOUS IVC ERROR DURING SEARCH = VOLUME IS VALID 


DEVICE FAULT (DVC) DURING SEARCH 


SKI SHOULD HAVE BEEN SET BECAUSE CYLINDER 
ADDRESS 1S TOO LARGE 


ao 


ao 


| 5 
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| ERROR POINTER TABLE SEQ 0054 
| 004460 070134 EMT 267 
004462 071236 EHT1 
004464 071362 EDT1 
04466 071452 EFT1 
558 
$4] sERROR 270 OP] ERROR DURING SEARCH BECAUSE MOL = 0 
004470 070152 EMT270 
04472 071236 EHT1 
004474 071362 EDT1 
004476 071452 EFT1 
561 
562 ERROR 271 OPI ~~ DURING SEARCH BECAUSE ON CYLINDER 
563 ; DIDN'T DROP 
564 
004500 070166 EMT271 
004502 071236 EHT1 
004504 071362 - EDT1 
004506 071452 EFT 
565 
268 ERROR 272 LOST MOL DURING SEARCH, OPI IS NOT SET 
004510 070204 EMT272 
004512 071236 EHT1 
004514 071362 EDT1 
004516 071452 EFT] 
568 
4 44 ERROR 273 PIP STIL SET AFTER SEARCH 
004520 070222 EMT273 
004522 071236 EHT1 
004524 071362 EDT1 
004526 071452 EFT 
571 
572 ERROR 274 PARITY ERROR OCCURRED WHILE WRITING REMOTE 
3? ; REGISTERS BUT MXF DID NOT SET 
004530 070240 EMT274 
004532 071236 EHT1 
004534 071362 EDT1 
004536 071452 EFT1 
575 
576 ERROR 275 MXF ERROR - COMPOSITE ERROR QCCURRED BEFORE DATA 
a7 : COMMAND STARTED 
004540 070256 EMT275 
004542 071236 EHT1 
004544 071362 EDT1 
004546 071452 EFT1 


todd 5 
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ERROR POINTER TABLE SEQ 0055 
at sERROR 276 oa ERROR DURING DATA TRANSFER BECAUSE ‘‘MOL’’ WAS 
582 , 

004550 070270 EMT276 
004552 071236 EHT1 
004554 071362 EDT] 
004556 071452 EFT1 
583 
584 sERROR 277 "OPI'' ERROR DURING DATA TRANSFER BECAUSE 1) ON 
585 ; CYLINDER DION'T DROP OR 2) SEARCH TIMED OUT OR 
288 : 3) RUN TIMED OUT 
004560 070304 EMT277 
004562 071236 EHT1 
04564 071362 EDT1 
004566 071452 EFT1 
588 
589 ERROR 300 "IVC'' ERROR DURING DATA TRANSFER BECAUSE VOLUME 
290 : WAS NOT VALID 
004570 070322 EMT300 
004572 071236 HT1 
004574 071362 EDT1 
004576 071452 EFTI 
592 
593 zERROR 301 ERRONEOUS ‘‘lVC'’ ERROR DURING DATA TRANSFER = VOLUME 
594 : 1S VALID 
595 
046 070342 EMT301 
004602 071236 EHT1 
004604 071362 EDT1 
606 071452 EFT 
596 
297 ZERROR 302 "*ILR' ERROR DURING DATA TRANSFER 
004610 070364 EMT 302 
004612 071236 EHT1 
004614 0713562 EDT! 
004616 071452 EFT1 
599 
5] ERROR 303 **ILF’’ ERROR DURING DATA TRANSFER 
004620 070376 EMT303 
004622 071236 EHT 
004624 071362 EDT! 
004626 071452 EFT1 
602 
603 TERROR 304 RMR’ ERROR DURING DATA TRANSFER 
004630 070410 EMT 304 
004632 071236 EXT! 


INCORRECT "‘1AE’’ STATUS DURING DATA TRANSFER 


"SKI'' ERROR DURING DATA TRANSFER 


DRIVE DID NOT DETECT SKI ERROR DUE TO CYLINDER 


DEVICE FAULT DURING DATA TRANSFER 


LOSS OF BIT CLOCK DURING DATA TRANSFER 


LOSS OF SYSTEM CLOCK DURING DATA TRANSFER 


UNSAFE ERROR DURING DATA TRANSFER (DvC = 0) 


CZRMNAO RMOS/3/2 FCT)... TST 2 MACRO V03.01 11-APR-80 13:17:48 PAGE 7-28 
ERROR POINTER TABLE 
004634 071362 EDT) 
004636 071452 EFTI 
605 
606 ERROR 305 
607 
004640 070422 EMT305 
004642 071236 EHT1 
004644 071362 EDT} 
004646 071452 EFT 
608 
34 ZERROR 306 
004650 070434 EMT306 
004652 071236 EHT1 
004654 071362 EDT1 
004656 071452 EFTI 
611 
ait sERROR 307 
004660 070444 EMT307 
04662 071236 EHT 
004664 071362 EDT! 
004666 071452 EFTI 
614 
615 sERROR 310 
616 
004670 070464 —EMT310 
004672 071236 EHT1 
004674 071362 EDT] 
004676 071452 EFTI 
617 
618 sERROR 311 
619 
004700 070476 —MT311 
004702 071236 EHT1 
004704 071362 EDT] 
0047 071452 EFT] 
620 
621 sERROR 312 
622 
004710 070510 EMT312 
004712 071236 EHT1 
004714 071362 EDT1 
004716 071452 EFT1 
623 
624 sERROR 313 
625 
004720 070522 EMT313 
004722 071236 EHT1 
004724 071362 EDTI 


SEQ 0056 


CZRMNAO thes t hans TST 2 


ERROR POINTER T 


004726 


004736 


004740 


071452 


071452 


070600 


Pm 
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; ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


; ERROR 


ERROR 


EFT 


316 


SEQ 0057 


DRIVE TIMING ERROR DURING DATA TRANSFER 


WRITE LOCK ERROR 


ERRONEOUS WRITE LOCK ERROR 


HEADER CRC ERROR DURING DATA TRANSFER 


FORMAT ERROR DURING DATA TRANSFER 


HEADER COMPARE ERROR DURING DATA TRANSFER 


HEADER ERRORS SHOULD NOT BE SET 


CZRMNAQ RMOS/3/2 FCTNL TST 2 MACRO V03.01 11-APR-80 13:17:48 PAGE 7230 


ERROR POINTER TABLE SEQ 0058 
647 
“ ERROR 323 DATA CHECK ERROR DURING DATA TRANSFER 
005020 070636 EMT323 
005022 071236 EHT1 
005024 071362 EDT! 
005026 071452 EFTI 
650 
63) sERROR 324 CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 
005030 070646 EMT324 
005032 071236 EHT1 
5034 071362 EDT! 
005036 071452 EFTI 
653 
o3% ERROR 325 UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 
005040 070660 —EMT325 
005042 071236 EHT1 
005044 071362 EDT! 
046 071452 EFT) 
656 
34 ERROR 326 DATA PARITY ERROR DURING READ COMMMAND 
005050 070672 EMT 326 
005052 071236 EHT] 
005054 071362 EDT) 
005056 071452 EFTI 
659 
$60 ERROR 327 OFFSET MODE NOT RESET BY WRITE COMMAND 
005060 070710 —EM1327 
005062 071236 EHT1 
005064 071362 EDT! 
005066 071452 EFTI 
662 
663 sERROR 330 DATA PARITY ERROR DURING WRITE COMMAND 
005070 070722 EMT330 
005072 071236 EHT1 
005074 071362 EDT! 
005076 071452 EFT) 
665 
rs | ERROR 331 WRITE CLOCK FALURE DURING WRITE COMMAND 
005100 070732 EMT 331 
005102 071236 EHT1 
005104 071362 EDT! 
005106 071452 EFT] 


H 5§ 
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ERROR POINTER TABLE SEQ 0059 
668 
re 4 ZERROR 332 DATA LATE ERROR DURING DATA TRANSFER 
005110 070744 EMT332 
005112 071236 EXT] 
005114 071362 EDT! 
005116 071452 EFT 
671 
ore sERROR 333 PIP STIL SET AFTER DATA TRANSFER = SKI = 0 
005120 070756 EMT 333 
005122 071236 EHT1 
005124 071362 EDT] 
005126 071452 EFT 
674 
oe ERROR 334 LOST MOL DURING DATA TRANSFER = OPI = 0 
005130 070774 EMT 334 
005132 071236 EHT1 
005134 071362 EDT1 
005136 071452 EFT 
677 
67s ERROR 335 LOST VOLUME VALID DURING DATA TRANSFER = IvC = 0 
005140 071012 EMT 335 
005142 071236 FHT] 
005144 071362 EDT! 
005146 071452 EFT 
680 
4 ERROR 336 DATA READ DOES NOT COMPARE WITH DATA WRITTEN 
005150 071032 EMT 336 
005152 071320 EHT336 
005154 071416 EDT 336 
005156 071506 EF 1336 
683 
oe ERROR 337 WRITE CHECK ERROR NOT DETECTED 
5160 071042 —M1337 
005162 071332 EHT337 
005164 071426 ED1337 
005166 071516 EF 1337 
686 
687 ZERROR 340 WRITE CHECK ERROR AT UNEXPECTED ADDRESS 
005170 071052 EMT 340 
005172 071320 EHT 336 
005174 071416 EDT336 
005176 071506 EF 1336 


1 5 
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ERROR POINTER TABLE SEQ 0060 
4 ERROR 341 INCORRECT DATA DURING WRITE CHECK ERROR 
005200 071064 EMT341 
005202 071320 EHT336 
005254 071416 EDT336 
005205 071506 EFT336 
692 
rah ERROR 342 “"IvC'’ ERROR NOT DETECTED DURING DATA TRANSFER 
005210 071072 EMT342 
005212 071236 EHT1 
005214 071362 EDT] 
005216 071452 EFT1 
695 
+4 ERROR 343 FER’ NOT DETECTED DURING DATA TRANSFER 
005220 071104 EMT343 
005222 071236 HT1 
005224 071362 EDT1 
005226 071452 EFTI 
698 
44 TERROR 344 “HCE’' NOT DETECTED DURING DATA TRANSFER 
005230 071116 EMT344 
005232 071344 EHT344 
005234 071436 EDT344 
05236 071526 EFT344 
701 
~~ ERROR 345 “BSE'’ NOT DETECTED DURING DATA TRANSFER 
005240 071130 EMT345 
005242 071236 EHT1 
005244 071362 EDT] 
005246 071452 EFT1 
704 
444 ERROR 346 HEADER ERROR WAS DETECTED W/ HCI SET 
005250 071140 EMT346 
005252 071236 EHT1 
5254 071362 EDT1 
005256 071452 EFT1 
707 
708 ERROR 347 DATA TRANSFER NOT ABORTED W/ COMP ERROR SET 
005260 071154 EM1347 
005262 071236 EHT1 
005264 071362 EDT] 
005266 071452 EFTI 
710 
711 sERROR 350 LOST VOLUME VALID DURING SEARCH = “‘IvC*’ = 0 


CZRMNAO RMOS/3/2 FCTNL TST 2 
ERROR POINTER TABLE 


ERROR 


ERROR 


; ERROR 


s ERROR 


352 
EMT352 


354 


43 
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ATA’ DID NOT SET DURING SEARCH 


PROGRAM TIMEOUT WHILE TESTING RMLA 


LOOK AHEAD TEST FAILS 


BSE SHOULD NOT BE SET 


;PUT ERROR TABLE HERE 


SEQ 0061 


CZRMNAO RMOS/3/2 FCTNL TST 2 
ERROR TABLE USAGE 


POPQNINIARINPIAINOA NY et et ss st es es 
ONO VE WH | OO OONG US WH -"ODONOU SW 


o 


K 5 
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-SBTTL ERROR TABLE USAGE 


sTHE ERROR TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR 
sNUMBER, 1.€., 


; EMT = ERROR MESSAGE TABLE ADDRESS 
; EHT = ERROR HEADER TABLE ADDRESS 
: EDT = ERROR DATA TABLE ADDRESS 

; EFT = ERROR FORMAT TABLE ADDRESS 


THE EMT ENTRY 1S THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRINGS 
;FOR THE PARTICULAR ERROR. EACH ERROR MESSAGE TABLE LISTS THE ADDRESS 


NO MESSAGE TO BE TYPED FOR THE ERROR. 


:SIMILARLY, THE EHT, EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES 

OF HEADER, DATA AND FORMAT INFORMATION FOR A GIVEN ERROR. EACH ENTRY 
:IN_THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF 

:DATA, HOWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND 
HEADER. THAT 1S, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA, 

;BUT A DATA LINE 1S NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE 

MUST ALSO HAVE A FORMAT. 


IN SUMMARY, 

: EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE, 

: EACH TABLE IS A LIST OF ADDRESSES WHICH DEF INES THE LOCATIONS 
: OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT 


SEQ 0062 


Ok st ot ts 
DONO VFW—OOOnN 


005460 
005466 


— CZRMNAO RMOS/3/2 FCTNL 
ERROR TABLE USAGE 


011600 


000417 


010046 
104402 
000240 


000240 


—— os ed ed ed od od td 
PROPOR MUTI PIPUPI POPP 


ep eH | 
Tf oe oe oe 
—Mrrnrw 


2 


oS 
ae 
XN 
Wwwno—-O SS NW 


NNNOW! NNO 


Sos 
SVs 


TST 2 


005354 


000000 


001114 
001154 
001100 
060222 


005640 


000176 
000174 


2 
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000020 


;THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 


BADTMO: 


.SBTTL 
3; CLEAR 


MOV 
T 


(SP) ,RO : SAVE PC WHERE THE TIME OUT OCCURED 
=(RO) sADJUST PC <2 

(SP)+,(SP)+ :RESTORE STACK POINTER 

,65$ 33 TYPE ASCIZ STRING 


64$ :GET OVER THE ASC1Z 
<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/ 


RO,-(SP) ;SETUP FOR TYPING OUT PC 


sPUT "HALT(O)" INSTRUCTION HERE IF YOU WISH 


:TO STOP ON UNEXPECTED TIMEOUT. 


#0 TTY LOOP, WAIT FOR INCREMENT 
OF WORD 
sRESET THE WORLD 


INITIALIZE THE COMMON TAGS 


THE COMMON Ly. (SCMTAG) AREA 

MOV #SCMTAG,RO Shy LOCATION TO BE CLEARED 
CLR (R6)+ LEAR MEMORY LOCATION 

CMP #SUR RO : DONE? 

a -~6 LOOP BACK IF NO 

#STACK,SP 3:SETUP THE STACK POINTER 
ss INITIALIZE A FEW VECTORS 
#SSCOPE ,a#1OTVEC 330% VECTOR FOR SCOPE ROUTINE 

MOV #340,a#1OTVEC+2 ;:LEVEL 7 
MOV WSERROR ,QWEMTVEC :sEMT VECTOR FOR ERROR ROUTINE 
MOV #340 ,a#EMTVEC+2 ;:LEVEL 7 
MOV #STRAP ,A#TRAPVEC : TRAP VECTOR FOR TRAP CALLS 
MOV #340 a#TRAPVEC+2;LEVEL 7 
MOV yet Forte rhe y : POWER FAILURE VECTOR 
MOV #340 a#PWRVEC+2 5 LEVEL 7 
MOV SENDCT. *SEOPCT ::SETUP END-OF-PROGRAM COUNTER 
CLR STIMES INITIALIZE NUMBER OF ITERATIONS 
CLR SESCAPE ::CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1, SERMAX ;;ALLOW ONE ERROR PER TEST 
MOV & mee tase THE LOOP ADDRESS FOR SCOPE 
OV UP THE ERROR LOOP ADDRESS 


M #., SLPERR 7 SET 
::SIZE FOR A HARDWARE ap REGISTER. 
3 EQUAL A A A tea ehiuee 


64$: 
65$: 


IF NOT FOUND OR IT IS 

4 A SOFTWARE SWITCH REGISTER. 
RVEC ,~(SP) ie SAV VE ERROR VECTOR 
and @#ERRVEC 23SeT UP ERROR VECTOR 

WR, SUR TUP FOR A HARDWARE SWICH REGISTER 
#DDiSe StSrLa AND A HARDWARE DISPLAY REGISTER 
#-1,aSWR 72 TRY TO REFERENCE HARDWARE SWR 
66% 7;BRANCH IF NO TIMEOUT TRAP OCCURRED 
73;AND THE HARDWARE SWR 1S NOT = -1 
;;BRANCH IF NO TIMEOUT 
7:SET UP FOR TRAP RETURN 


#SWREG ;:POINT TO SOFTWARE SwWR 
aD1sPREG DISPLAY 


65% 
#65$, (SP) 


SEQ 0063 


———__—---—————— 


CZRMNAO wa tt of: Asti TST 2 
INITIALIZE THE COMMON TAGS 
005654 012637 000004 
005660 005037 001230 
005664 132737 000200 
005672 001403 
005674 012737 001244 
20 005702 . 
21 005702 012737 005340 
22 005710 012737 000300 
23 005716 012746 000300 
005722 012746 005730 
05726 000002 
005730 
24 
25 
005730 005227 177777 
005734 001056 
005736 022737 032530 
005744 001452 
005746 104401 006014 
005752 005737 000042 
005756 001012 
005760 123727 001242 
005766 001406 
005770 023727 001154 
005776 001005 
06000 104407 
006002 000403 
006004 112737 000001 
006012 
006012 000427 
006072 
26 
27 
39 
30 006072 005037 001330 
31 006076 122737 000016 
32 006104 001160 
33 006106 013737 000040 
34 006114 122737 000007 
35 006122 103002 
36 006124 105037 001330 
37 006130 005737 000042 
38 006134 001425 
39 006136 104401 006144 
006142 000412 
006170 
40 006170 005046 
41 006172 113716 001330 
42 006176 104403 
43 006200 001 


M5 
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001243 
001154 


000004 
000006 


000042 


000001 


000176 


001150 


000041 


001330 
001330 


66$: 


MOV 
CLR 
BITB 
BEQ 
MOV 


(SP)+,@WERRVEC ;;RESTORE ERROR VECTOR 

+2CLEAR PASS COUNT 

ssTESt USER SIZE UNDER APT 
YES,USE NON-APT SWITCH 

:;NO,USE APT SWITCH REGISTER 


SPASS 
WAPTSIZE,SENVM 
67$ 

WSSWREG, SWR 


67$: 
; SETUP ‘ee TRAP VECTOR FOR ry tag Dy BUS TIMEOUTS 


68$: 


WBADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 


#PRO,ERRVEC+2 sLEVEL 6 
#PR6,-(SP) ;3PUT NEW PS ON STACK 
#688 ,-(SP) PUT NEW PC ON STACK 


;;POP NEW PC AND PS 


-SBTTL TYPE PROGRAM NAME 
3 TYPE a NAME » Pag PROGRAM IF FIRST PASS 


szFIRST TIME? 
69$ ;;BRANCH IF NO 
A#SENDAD ,a#42 3sACT=11? 
69$ Hone IF YES 
YPE ASCIZ STRING 


YPE ,70$ 
a VALUE 4 SOF TWARE stitch REGISTER 


NC 
BNE 
CMP 
ip: 
.SBTTL 
BNE 
CMPB 
BEQ 
CMP 
BNE 
GTSWR 
BR 
71$: MOVB 
72$: 
BR 
3:70$: .ASCIZ 
69s: 


ARE WE RUNNING UNDER XXDP/ACT? 
NCH IF YES 


71$ STBRAN 

SENV,#1 +7 ARE WE RUNNING UNDER APT? 

7 ;BRANCH IF YE 

SWR ,#SWREG 3 3 SOF TWARE SWITCH REG SELECTED? 
72$ ANCH 

728 ::GET SOFT-SWR SETTINGS 

#1, SAUTOB ::SET AUTO-MODE INDICATOR 


T OVER THE ASCIZ 


698 
<CRLF>@CZRMNAO - M057 379 FUNCTIONAL TEST, PART 2a<CRLF> 


sTHE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE : 


PAPER TAPE (MANUAL), 


18: 


pags 


ACT11, XXDP CHAIN OR DUMP 


XXDP CLEAR ‘'XXDP* LOAD DEVICE 5) FORAGE 
#16,a841 :LOADED FROM AN RMO5/3/2 ? 
3$ BRANCH IF NOT 
a#40,XXDP 3GET DEVICE INDICATOR AND NUMBER 
+ Cad fe IT A VALID NUMBER ? 
XXDP :NO, DEFAULT TO DRIVE 0 
a#42 CHAIN MODE OR ACT11 AUTO ACCEPT ? 
23 :BR IF NEITHER 
74% ss Tre ASCIZ STRING 


73$ :GET OVER THE ASCIZ 
<CRLF>/NOT TESTING DRIVE / 


~(SP) CLEAR WORD ON STACK 


XXDP, (SP) :GET DRIVE ADDRESS 
TYPE THE ADDRESS 
1 SONLY 1 CHARACTER 


SEQ 0064 


| CZRMNAO RMOS/3/2 FCTNL 
| GET VALUE FOR SOFTWARE 


| 
| 
| 
| 
| 
| 


{ 


4 006201 
ds 006202 
46 006206 


006462 
68 006462 
006470 


6 
i 
71 006472 
. 006474 


8° 
82 006532 
83 006540 


oO 
= 
S 
& 
o 
™~Nm 
Nm 


104401 
000431 


104401 
000435 


~ 
w 


oo o-—-oocoo— oo 4 


treat tree tee 


wow Ow — 
—-OnNoOoOVNNONOCOO VAUNNNNSN OF US 


—OOW "OW" O WO OD 


So 
S 


2 


001217 


177777 
006224 


001330 


006264 


006354 


001150 
000377 


000200 


001276 
064506 


064305 
001330 


001330 


000040 


010000 


064342 
004000 


064361 
010000 


TST MACRO V03.01 11-APR-80 
SWITCH REGISTER 


BR 
eASCIZ 


>CHECK FOR AUTO 
TSTB 


5 
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0 :SUPRESS LEADING ZEROS 
SCRLF CR=LF 

$$ :GET NUMBER OF DRIVES 

a1 sFIRST TIME THRU HERE ? 
76$ is TYPE ASCIZ STRING 

75 OVER THE ASCIZ 


$ ;GET 
<CRLF>/TO TEST DRIVE / 


-(SP) ;CLEAR WORD ON STACK 
XXDP, (SP) GET DRIVE ADDRESS 
;TYPE DRIVE ADDRESS 
1 sONLY 1 CHARACT 
0 ;SUPRESS LEADING Zens 
78$ ii TYPE ASCIZ STR 


7$ 3 GET sciz 
/, HALT PROGRAM, REMOVE RRDP PACK AND REPLACE IT/<CRLF> 


79$ ia TYPE ASCIZ ites 
OVER THE A 


$ ASCIZ 
7WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF> 


cee OR STANDLONE sal 
$AUTOB we AUTO MODE ? 


BEQ STANDALONE ‘BR I 

MOV #377,$DEVM :SET DEVICE MAP FOR ALL DRIVES 
;PROGRAN 1S RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED 

"  BITB —s #BIT7, SENV :SIZING ALLOWED ? 

BNE 7$ 3NO 

CLR R1 :START FROM DRIVE 0 

MOV $BASE ,RO “LOAD THE BASE ADDRESS 

B178 ATNTBL(RT) ,SDEVM wal DEVICE PRESENT IN MAP ? 

MOV #LODEV,5$ :GET ADDRESS OF LOAD DEVICE MESSAGE 

TST XXDP “LOADED FROM RMOS/3/2 ? 

BEQ 2$ : NO 

CMPB  —s- XXDP,,R1 [1S THIS THE DRIVE ? 

BEQ 3$ YES, TRY NEXT DRIVE 

MOV #CLR,RMCS2(RO) ;CLEAR MASS BUS 

MOV R1,RMCS2(RO) :LOAD THE DRIVE ADDRESS 

TST RMDS (RO) [TRY TO ACCESS AN RM DRIVE REGISTER 

MOV #NOTPRS,5$ [GET ADDRESS OF NOT PRESENT MESSAGE 

BIT HNED.RACS2(RO) 21S DRIVE PRESENT ? 

MOV #NOTAVL, 5% :GET ADDRESS OF AVAILABLE MESSAGE 

gi! HDVA,RACST(RO) i1S DR DRIVE AVAILABLE ? 

MOV KOFFLIN, 5$ ‘GET ADDRESS OF OFF LINE MESSAGE 

BIT #MOL,RMDS(RO) 15S MEDIUM ON LINE ? 

BEQ 3$ :B 

BR 6$ 


SEQ 0065 


— 


| GET VALUE FOR SOFTWARE 


i 
| 


— SS soo ooocooo 
WFWre—CO0O® GSE ARaeles 
o 
ya 


0 
104401 
000000 


005201 
020127 
003706 


104401 


001376 
000137 


CZRMNAO RMOS/3/2 FCTNL TST 2 


000007 


001217 


007612 


B 6 
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001300 3$: 
4$: 


5$: 
6$: 


7$: 


cor SDEVM 
o$CRL 


“ASCORV 
R1,=(SP) 


orm 


CMNSTART 


CLEAR DEVICE FROM BIT MAP 


:TYPE "DRIV 
7 ;SAVE RI Hm TYPEOUT 
7:60 TYPE--OCTAL ASCII 
si TYPE 2 DIGIT(S) 
i SUPPRESS LEADING ZEROS 
‘TYPE ERROR MESSAGE 
[ADDRESS OF MESSAGE GOES HERE 


: INCREMENT THE DRIVE ADDRESS 


sALL DRIVES ARE CHECKED ? 
sBRANCH IF NOT 


; CR=LF 
; THESE TWO LOOPS ARE ADDED TO 
;WAIT FOR TTY TO FINISH TYPING. 


; JUMP TO COMMON START 


SEQ 0066 


——-+-— +, 


| C 
| CZRMNAO RMOS/3/2 FCTNL TST 2 MACRO V03.01 11-APR-80 13:17:48 PAGE 18 


| STANDALONE INPUT ROUTINES SEQ 0067 
1 .SBTTL STANDALONE INPUT ROUTINES 
g 006706 STANDALONE : 
é 006706 004737 061036 JSR PC,STKINT sINITIALIZE CONSOLE 
6 006712 005227 177777 INC #1 sFIRST TIME THRU HERE ? 
i 006716 001426 BEQ 3$ YES !! 
2 sans iSEE IF THE USER WANTS TO KEEP SAME DEVICES FOR TESTING 
11 006720 104401 063644 TYPE ,CNSLOO ;MAINTAIN PREVIOUS PARAMETERS ? 
12 006724 104411 RDCHR [GET RESPONSE 
13 006726 012637 001176 MOV (SP)+,STMP1 sECHO RESPONSE 
14 006732 104401 001176 TYPE $TMP 
15 006736 123727 001176 000131 CMPBsdSTMP1,#'Y :YES RESPONSE ? 
16 006744 001004 BNE 2$ NO! ! 
17 006746 104401 001217 TYPE SSCRLF CRLF 
18 006752 000137 007612 JMP CMNSTART [KEEP PREVIOUS PARAMETERS 
20 006756 123727 001176 000116 2%: CMPB Ss STMP1,#'N ZNO RESPONSE ? 
21 006764 001427 BEQ 5$ :YES, GET NEW PARAMETERS 
22 006766 104401 064241 TYPE CNSLO8 3NO, TYPE * ILLEGAL INPUT ' 
23 006772 000752 BR is ‘TRY AGAIN 
25 >SEE IF OPERATOR WANTS HELP TEXT 
26 006774 S$: 
27 006774 104401 063234 TYPE »MSHELP ;WANT HELP ? 
28 007000 104411 RDCHR :GET RESPONSE 
29 007002 012637 001176 MOV (SP)+,STMP1 ;SAVE AND ECHO RESPONSE 
30 007006 104401 001176 TYPE /STMP A 
31 007012 123727 001176 000131 CMPB STMP1,#@'Y sWAS IT A YES RESPONSE ? 
32 007020 001407 BEQ 4$ iY 
33 007022 123727 001176 000116 CMPB STMP1,#°N ;WAS IT A NO RESPONSE ? 
34 007030 001405 BEQ :Y 
35 007032 104401 064241 TYPE CNSLOB :NO, TYPE ' ILLEGAL INPUT 
36 007036 000756 BR 8$ :TRY AGAIN 
4 007040 104401 101206 4$: TYPE HELP sYES - TYPE HELP TEXT 
39 :SEE IF USER WANTS TO CHANGE ADDRESSES 
40 007044 §$: 
41 0070464 104401 001217 TYPE ,SCRLF :CR-LF 
42 007050 104401 063611 TYPE -UBUSQST :WANT TO CHANGE ADDRESS ? 
43 007054 104411 RDCHR :GET RESPONSE 
4 007056 012637 001176 MOV (SP)+,$TMP1 :SAVE AND ECHO RESPONSE 
45 007062 104401 001176 TYPE STMPi 
46 007066 123727 001176 000131 CMPB ss STMP1,#'Y :WAS IT A YES RESPONSE ? 
47 007074 001407 BEQ 6$ :Y 
48 007076 123727 001176 000116 CMPB es STMP'1,#'°N :WAS IT A NO RESPONSE ? 
49 007104 001525 BEQ 2$ YES 
50 007106 104401 064241 TYPE CNSLOB :NO, TYPE ' ILLEGAL INPUT ° 
31 007112 000756 BR § $44 ‘TRY AGAIN 
33 ie {DIALOGUE TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 
55 007114 104401 063677 TYPE CNSLO1 :TYPE CURRENT BUS ADDRESS 
56 007120 013746 001276 MOV $BASE,-(SP) ::SAVE $BASE FOR TYPEOUT 
007124 104402 TYPOC 7:60 TYPE=-OCTAL ASCII(ALL DIGITS) 


Ma SSS Ss — — — 


r- “ 


! 
| 


CZRMNAO RMOS/3/2 FCTNL TST 2 


| STANDALONE INPUT ROUTINES 


57 007126 104401 063225 
58 007132 104413 

59 0071 012637 001176 
60 007140 00141 

61 007142 022737 160000 
62 007150 101403 

63 007152 104401 063715 
64 007156 000760 

# 007160 013757 001176 
67 007166 104401 063757 
68 007172 005046 

69 007174 113716 001272 
70 007200 104403 

71 007202 003 

72 007203 000 

73 007206 104401 063225 
74 007210 104413 

75 007212 012637 001176 
76 007216 001412 

77 007220 022737 001000 
78 007226 101003 

79 007230 104401 063777 
80 007234 000754 

4H 007236 1157357 001176 
83 007244 104401 064033 
84 $07 $28 005046 

85 007252 113716 001273 
86 007256 006216 
87 007260 006216 

88 007262 006216 

89 007264 006216 

90 007266 006216 

91 007270 104403 

92 007272 001 

93 007275 000 

94 007274 104401 063225 
95 007300 104413 

96 007302 012637 001176 
97 007306 001424 

98 007310 023727 001176 
99 007316 002403 
100 007520 104401 064045 
101 007324 000747 

102 007326 006337 001176 
103 007332 006337 001176 
106 007336 006557 001176 
105 007342 006337 001176 
106 007346 aH 001176 
+ +4 007352 113737 001176 
109 

110 007360 

111 007360 005227 177777 
112 007364 901002 

113 007366 104401 064076 


| D 
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001176 


001276 


001176 


001272 


000007 


001273 


SEQ 0068 
TYPE QUES wwe. hme 
RDOCT GET NEW BUS ADDRESS 
MOV (SP)+,STMP1 ; CARRIAGE RETURN ? 
BEQ $ YES-SKIP TO NEXT ENTRY 
eros | ateaameeritat :BASE ADDRESS IN 1/0 PAGE ? 
TYPE »CNSLO2 ‘TYPE WARNING MESSAGE 
BR 6$+4 ‘TRY A AGAIN 
7$: MOV STMP1,S$BASE sSTORE NEW BUS ADDRESS 
8$: TYPE CNSLO3 
CLR -(SP) 
wees SVECT1, (SP) ;GET CURRENT VECTOR ADDRESS 
Y 
BYTE 3 sTYPE 3 DIGITS 
BYTE 0 3 SUPenE SS LEADING ZEROS 
TYPE QUES YPE * 
RDOCT ‘Ger NEw. yt doe ees 
MOV (SP)+,STMP1 ; CARRIAGE RETU 
BEQ sYES-SKIP TO Next ENTRY 
a4 #1000,STMP1 :VECTOR ADDRESS < 1000 ? 
H Y 
TYPE CNSLO4 : TYPE WARNING MESSAGE 
BR $ RETRY 
9$: MOVB STMP1,$VECTI ;STORE NEW VECTOR ADDRESS 
10$: TYPE erry pg 
CLR (SP) 
MOVB SVECTION, (SP) ;GET CURRENT BR LEVEL 
ASR (SP) 
ASR (SP) 
ASR (SP) 
ASR (SP) 
ASR (SP) 
TYPOS 
BYTE 1 sONLY 1 DIGIT 
BYTE 0 ;SUPPRESS LEADING ZEROS 
TYPE QUES 
RDOCT ;GET NEW PRIORITY 
MOV (SP)+,STMP1 ; CARRIAGE RETURN ? 
BEQ 1 sYES-SKIP TO NEXT ENTRY 
CMP STMP1,#7 ;LEGAL PRIORITY ? 
BLT 118 sYES!! 
TYPE »CNSLO6 i TYPE “WARNING MESSAGE 
BR 10$ TRY AGAIN 
118: ASL STMP1 ‘STORE NEW PRIORITY 
ASL STMP1 
ASL STMP1 
ASL STMP1 
ASL $TK-1 
MOvB STMP1 SVECTI+1 


} or TO INPUT DEVICE NUMBERS 


INC #-1 sFIRST TIME THRU ? 
BNE 138 :BR IF NO 
TYPE -CNSLO7 ;TYPE INPUT INSTRUCTIONS 


6 
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CZRMNAO RMOS/5/2 FCTNL T 
STANDALONE INPUT ROUTINES SEQ 0069 

114 007372 104401 oat A 13$: TYPE SCRLF 3; CRLF 

115 007376 005037 001300 148: CLR $oE ve" [CLEAR DEVICE MAP 

116 007402 104401 064263 TYPE /MSDRVS :TYPE "DRIVE(S): ° 

117 0074606 104411 RDCHR 

118 007410 019637 001176 MOV (SP)+,$TMP1 :GET RESPONSE 

119 €07414 023727 001176 000101 CMP STMPI#°A 71S INPUT "‘A"' ? 

120 007422 001007 BNE 15$ IN 

121 007426 104401 063220 TYPE abl, sYES, TYPE “‘ALL’’ AND GO 

12 007430 012737 000377 001300 MOV #377, SDEVM *SET DEVICE MAP FOR ALL DRIVES 

1s 007436 000137 0064 JMP xS12Z ;AUTO SIZE. 

125 007442 023727 001176 000015 15$: CMP STMP1,#CR ; CARRIAGE RETURN ? 

126 007450 001436 BEQ 17$ :Y 

127 007452 104401 001176 TYPE STMP1 sECHO RESPONSE 

128 007456 023727 001176 000060 CMP $TMP1,#°0 “NUMBER < 0 ? 

129 007464 002430 BLT 17 s YES 

130 007466 023727 001176 000067 CMP STMP1,#'7 “NUMBER > 7 ? 

131 007474 003427 BLE 18$ ; 

13 007476 000423 BR 17% sILLEGAL INPUT 

134 007500 104411 16$:  RDCHR 

135 0067502 012637 001176 MOV (SP)+,STMP1 ;GET RESPONSE 

136 007506 023727 001176 000015 CMP STMP1,#CR ;CARRIAGE RETURN ? 

137 007514 001432 BEQ 19% YES 

138 007516 104401 063231 TYPE COMMA ste *, * 

139 007522 104401 001176 TYPE STMP1 sECHO RESPONSE 

140 007526 023727 001176 000060 CMP $TMP1,#°0 “NUMBER < 0 ? 

141 007534 992404 BLT 17 YES 

142 007536 023727 001176 000067 CMP STMP1,#'°7 sNUMBER > 7 ? 

143 007544 003403 BLE 18$ NO 

144 007546 104401 064241 17$: TYPE CNSLOB8 sTYPE ‘' 27]1LLEGAL INPUT"’ 

165 007552 000711 BR 148 sRETRY 

147 007554 013701 001176 18$: MOV STMP1,R1 3R1 = DRIVE NUMBER 

148 007560 042701 177770 BIC #*C7,R1 

149 007564 156137 064506 001300 B1SB ATNTBL(R1),$DEVM ;SET DEVICE IN MAP 

150 007572 122737 000377 001300 CMPB Os #377, SDE VM :DONE ? 

151 007600 101337 BHI 16$ NO 

152 007602 104401 001217 19$: TYPE , SCRLF sCR-LF 

37 007606 000137 006462 JMP ¥S1Z 3GO0 SIZE DEVICES 


. 
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STANDALONE INPUT ROUTINES SEQ 0070 
;ASSEMBLE TEST QUE FROM DEVICE MAP 
ft: CMNSTART: 
0 rele 013700 001300 MOV SDEVM,RO RO = DEVICE MAP 
012701 001466 MOV #TSTQUE+2,R1 *R1 = ADDRESS OF FIRST ENTRY IN QUE 
4 oe: $ 010137 001464 MOV R1, TSTQUE INITIAL 1ZE ENTRY POINTER 
6 007626 012702 000001 MOV #1,R2 ;R2 = DEVICE POINTER 
4 Sore 0989 Pa ae a 
: e 3 H v 
9 007636 001406 BEQ 23 iNO ! 
10 007640 010311 MOV R3,(R1) YES - ENTER DEVICE NUMBER IN QUE 
11 007642 116361 064506 000001 MOVB ATNTBL(R3),1(R1): sENTER ATTENTION BIT IN QUE 
12 007650 062701 000002 ADD #2,R1 ADVANCE ENTRY POINTER 
13 007654 006302 23: ASL R2 ; ADVANCE DEVICE POINTER 
14 007656 105702 TSTB R2 ry ALL DEVICES ? 
15 007 001402 BEQ 3$ 
16 007662 005203 INC R3 ZADVANCE DEVICE NUMBER 
17 007664 000763 BR 1$ sENTER NEXT DEVICE 
3 007666 005011 3$: CLR (R1) s TERMINATE TEST QUE 
20 sSIZE FOR CLOCK 
21 007670 004737 037600 JSR PC,SIZCLK sSEE IF CLOCK PRESENT 
22 007674 000413 BR 5$ sYES = CLOCK IS PRESENT 
23 007676 4$: 
007676 104000 EMT 
24 007700 104401 007706 TYPE 65% 3: TYPE ASCIZ STRING 
007704 000405 oP 648% 7;GET OVER THE ASCIZ 
33658: .ASCIZ <CRLF>/PROG HLT/ 
007720 648: 
25 007720 000000 HALT PROGRAM HALT !! 
26 007722 000765 BR 4$ 
27 007724 5$: 
.SBTTL eT VALUE FOR SOFTWARE sul Tcn REGISTER 
007724 005737 000042 TST a#42 ARE WE RUNNING UNDER XXDP/ACT? 
007730 001012 BNE 66% BRANCH IF YES 
007732 123727 001242 000001 CMPB SENV,#1 ARE WE RUNNING UNDER APT? 
007740 001406 BEQ 66% 3; BRANCH IF YES 
007742 023727 001154 000176 CMP SWR, #SWREG 3 3 SOFTWARE SWITCH REG SELECTED? 
007750 001005 BNE 67% NCH IF N 
007752 104407 GTSwR T:GET SOFT-SWR SETTINGS 
007754 000403 BR 67% 
007756 112737 000001 001150 66$: MOVB #1,S$AUTOB 3zSET AUTO-MODE INDICATOR 
007764 67%: 
2° 007764 000240 READY: NOP READY TO START TEST 
30 007766 105737 001300 TSTB SDEVM ANY DRIVES IN MAP ? 
31 007772 001007 BNE 23 ‘BR IF YES 
32 007774 005737 000042 TST a#42 ;ANY MONITOR PRESENT ? 
33 010000 BO 1008 BNE 1$ R IF YES 
34 010002 000137 005420 JMP START : JUMP TO STAR 
35 010006 000137 032340 1$: JMP SEOP RETURN CONTROL TO MONITOR 
$ 010012 105037 001116 23: CLRB STSTNM sRESET TEST NUMBER 
38 010016 005037 001206 CLR STIMES Sa} meer? OF ITERATIONS 
39 010022 005037 001326 CLR CTLFG CLEAR CONTROL-C FLAG 
40 Has3s 004737 061036 JSR PC, STKINT CINITIALIZE TTY 
41 010032 012746 000300 MOV #PR6,-(SP) *:PUT NEW PS ON STACK 
010036 012746 010044 MOV #64%,-‘SP) :7PUT NEW PC ON STACK 


G 6 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0071 

010042 000002 RT] ;;POP NEW PC AND PS 
010944 64$: 

42 010066 117737 171414 001234 MOVB aTSTQUE,S$UNIT  ;=LOAD UNIT NUMBER 

43 010052 005037 001510 CLR MEDENB :CLEAR MEDIA ENABLE 

45 ZCLEAR MASSBUS CONTROLLER, SELECT DRIVE AND DETERMINE THE LAST TRACK 

46 :OF THE DIFFERENT DRIVE TYPES 

47 010056 012737 002000 001332 MOV #TAG,LSTRK ;ASSUME LAST TRACK FOR RMO2/5 = 

48 010066 013700 001276 MOV SBASE RO 7RO = UNIBUS ADDRESS 

49 010070 012760 000060 000010 MOV #CLR,RMCS2(RO) = CLEAR MASSBUS 

50 010076 117760 171362 000010 MOvVB aT STGUE RACS2( RO) a DEVICE UNDER TEST 

$1 010104 016002 000026 MOV RMDT(RO) ,R2 :GET RMDT A 

$2 010110 042702 177770 BIC #177770,R2 > SAVE DRIVE “TYPE BITS 

53010114 022702 000007 CMP #7,R2 iis IT AN RMOS ? 

$4 010120 001003 BNE 3$ must BE AN RMO2 OR kMO3 

35 Q101¢2 012737 011000 001332 * MOV #TAI6O!TAZ,LSTRK ‘vegeetet LAST TRACK = 18. 


CZRMNAO RMOS/3/2 FCTNL 
GET VALUE FOR SOFTWARE 


1 


2 
010130 
010130 
010132 
010134 
010140 
010144 
; 010150 
4 010156 
5 010160 
6 010164 
7 010170 
010176 
10 010204 
11 010210 
12 010214 
13 010220 
14 010224 
15 010230 
16 010234 
i7 010240 
18 010244 
19 010250 
20 010254 
21 010260 

22 
23 010262 
24 010264 
25 010270 
26 010274 
27 010276 
28 010302 
$3 010304 
31 010310 
32 010314 

33 

34 
010314 
010314 
010316 
010320 
010324 
010330 
010534 

35 
36 010342 
010346 
010350 
010352 


ooo 
——s 
Ww fw 


S 


WWF SO Woo 
ANNOO—S NO 


oe NNO ONS 


GSoocoo rwrvww 
-—o—-oO 
SCooococa 
SOmrononwoo 


a et at at a 
Co 
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~rm 


MNAOCO 
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o 
Ww 
~ 


2 
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R 
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TST 2 
SWITCH REGISTER 


001100 


000001 


000004 


000004 


000006 
000004 


000042 
005420 
032340 


001100 


000002 
046464 


001226 


000004 
000006 


001226 


;eeeeeeeeerereerererererererereneeeeeneeeeeeReeneteneReeeeeeTeese 


CONTROLLER ACCESS TEST 


, Teeeeereneeeererterererereereneeeeeeeeetateteeeeneteeereneteeee 


eTEST 1 


igtt: 


3$: 


5$: 
7$: 


SCOPE 
N 


#STACK,SP 
#1, STESTN 


ERRVEC, (SP) 
ERRVEC #2, = (SP) 
#3$,ERRVEC 
PRE, ERRVEC*2 


R1,RMCS1#1(RO) 
R1.RMWC (RO) 
RMWC (RO) ,R2 
R1,RMBA(RO) 
RMBA(RO) ,R2 
R1,RMCS2(RO) 
RMCS2(RO) RZ 
R1,RMDB(RO) 
RMDB(RO) .R2 
(SP)+,ERRVEC42 
(SP) + ERRVEC 


(SP)+,(SP)+ 
(SP)+* ,ERRVEC+2 
(SP)+,ERRVEC 
110 

ar42 

5$ 

START 


SEOP 


sSCOPE CALL 
;START OF TEST 
4 pe tty STACK POINTER 
= UNIBUS ADDRESS 
tRt) = DEVICE BEING TESTED 
:;SET TEST NUMBER IN APT MAIL BOX 


;;PUSH ERRVEC ON STACK 
3 PUSH ERRVEC #2 ON STACK 


sMOVE HI BYTE TO RMCS1 
sMOVE WORD COUNT REGISTER 


sMOVE BUS ADDRESS REGISTER 
sMOVE CONTROL STATUS REGISTER 
sMOVE DATA BUFFER 
;POP ti INTO ERRVEC*#2 
;POP stack INTO ERRVEC 
NO BUS TIMEOUT OCCURRED 
: ADJUST STACK 
POP STACK INTO ERRVEC+#2 
: POP STACK INTO ERRVEC 
1 tog ALONE MODE ? 
i yES- GO GET SBASE 


:GO0 10 END OF PASS HANDLER 


perrereeeeeeeeereeeeeteteeeeeeeeeeeeeeeeeeteeneeeeeeeeeeeeeeeeee 


DEVICE AVAILABLE TEST 


;eeeererereeeeeeeteseeeeeteeeeeeeeeeeeeeeeeeeeeteteneeeeteeeenese 


z*TEST 2 


$12: 


#@STACK SP 
SBASE ,RO 

TSTQUE ,R1 
#2,STESIN 


PC,CNTCLR 
2% 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 
S ADDRESS 


:RO D 
:(R1) = DEVICE BEING TESTED 
7;SET TEST NUMBER IN APT MAIL BOX 


:G0 ISSUE lay CLEAR 
:G0 TO 2$ IF NO ER aan 

;RETURN HERE iF ERR 

ERROR NUMBER DEFINED BY SUBROUTINE 


SEQ 0072 


z I 
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C2 
T2 DEVICE AVAILABLE TEST SEQ 0073 
010354 000137 010474 JMP 7$ 360 TO 7$ IF ERROR 
37 010360 2$: 
38 010360 013746 000004 MOV ERRVEC,-<5P) 77PUSH ERRVEC ON STACK 
39 010364 013746 000006 MOV ERRVEC#2,-(SP) 77PUSH ERRVEC*2 ON STACK 
40 010370 012737 010460 000004 MOV #5$, ERRVEC 
41 010376 013737 000300 000004 MOV PR6,ERRVEC +2 
tg 010404 016037 000000 001176 MOV RMCS1(RO),STMP1 :GET DvA STATUS 
44 010612 016037 000010 001174 MOV RMCS2(RO),STMPO :GET NED STATUS 
45 010420 012637 000006 MOV (SP)* ,ERRVECS2 :;POP STACK INTO ERRVEC+2 
46 010424 012637 000004 MOV (SP)+ ERRVEC 7:POP STACK INTO ERQVEC 
47 010430 032737 010000 001174 BIT #NED ,STMPO SNONEXISTENT DEVICE ? 
48 010636 001402 BEQ 3$ :NO!! 
49 010440 104111 EMT 111 
50 010442 000414 BR 7$ 
51 010444 032737 004000 001176 3s: BIT #OVA,STMP) :DEVICE AVAILABLE ? 
52 010452 001012 BNE 98 SYES!! 
53 010454 104112 EMT 112 
34 0104656 000406 BR 7$ 
56 010460 022626 5$: CMP (SP)*, (SP)6 ADJUST STACK 
57 010462 012637 000006 MOV (SP)* ERRVEC*2 ;;POP STACK INTO ERRVEC*2 
58 010466 012637 000004 mOVv (SP)* ERRVEC ::POP STACK INTO ERRVEC 
59 010472 104113 EMT 113 
60 010474 000137 032302 7$: jmp SEOSP 
61 010500 98: 
62 
63 Fe PeeeeeeeeseeosecseresercesesseeeseseeeseeeeeeereseeeTeTeTeeeeeeHeee 
TeTEST 3 DRIVE TYPE TEST 
010500 1513: 
010500 000004 SCOPE [SCOPE CALL 
010502 000240 NOP >START OF TEST 
010504 012706 001100 MOV SSTACK,S° INITIALIZE STACK POINTER 
010510 013700 001276 MOV SBASE .RO 7RO = UNIBUS ADDRESS 
010514 013701 001464 MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
“4 010520 012737 000003 001226 MOV a3, STESIN :;SET TEST NUMBER IN APT MAIL BOX 
65 010526 004737 046464 JSR PC. CNTCLR 3;G0 ISSUE CONTROLLER CLEAR 
010532 0004 BR 2$ 760 10 2$ IF NO ERROR 
010534 000240 NOP SRETURN HERE IF ERROR 
010536 104000 EMT sERROR NUMBER DEFINED BY SUBROUTINE 
at 010540 000137 010676 Me JMP 4% :G0 TO 4$ IF ERROR | 
67 010544 112737 000026 00152 MOVB #RMOT.GETINK ;SETUP GET INDEX TABLE 
010552 112737 000200 00152 MOVB #200,GETINX+1 :SETUP TERMINATOR BYTE 
010560 012737 010702 001362 MOV #5$,RM0TI :SET RMDT INPUT BUFFER = 5$ 
010566 004737 037110 JSR PC,GET 7GO0 READ RMDT VIA GET SUBROUTINE 
010572 000402 BR 3$ 760 TO 3$ IF NO ERROR 
010574 000240 NOP SRETURN HERE IF ERROR 
68 010576 104000 EMT sERROR DEFINED BY GET SUBROUTINE 
69 010600 022737 020024 001362 38: CMP #SNGPRT,RMDTI  ;SINGLE PORT RMO3 ? 
70 010606 001435 BEQ TYES |! 
71 010610 022737 024024 001362 CMP #DULPRT,RMDTI  :DUAL PORT RMO3 ? 
re 010616 001431 BEO 5$ TYES '! 


CZRMNAO RMO5S/3/2 
T DRIVE TYP 


Wr —O 0OOnour 
S33 
Bens 

sess gs 


= SSse 
o fcoco 


& $F 


oo ooo ocOoOOoCOoO oOCCoOO 
on ™~N 
uo P+. 


—— + st — 


DONO 


_ 
oO 
~ 


oooooco 
et ot ot ot ot 


VLSSELESRAN 
oooo°o°oo 


S283 


So 
w 
MF FO 


oooooo°c[“eoo 
i — oe 


— —* —*s _» —* ss ~—* 
SSLESE 
Oe ed ed ed ed ed ed 
Ot et et et ot = CE 
So ooo°o[oo 
FF FS 


et 

o 
oo 
— — 
— + 
o 


C 


naw 


ooo 
mor 


—CcoO 
pars 


TST 2 
T 


020025 
024025 


020027 
024027 


020024 
024024 


032302 


001100 
001276 
001464 
000004 
000000 


000000 


000000 
177376 
101206 
000062 


034276 


063120 
011544 


033352 


J 
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001362 
001362 


001362 
001362 


001176 
001200 


001226 


001442 


001444 
001416 
001412 
001414 
001410 


np #SNGPAT:BITO,RMDTI : SINGLE PORT RMO2 ? 
s¥ 33 
CMP #DULPRT'BITO,RMDTI SDUAL PORT RMO2 ? 
BEQ 5$ YES !! 
cp #SNGPRT!BIT1:BITO,RMDTI ;SINGLE PORT RMOS ? 
ZF z3 
CMP #DULPRT'BIT1'BITO,RMDTI :DUAL PORT RMOS ? 
BEQ 5$ 
MOV @SNGPRT,STMP1 ;LOAD ACCEPTABLE VALUES 
MOV #DULPRT.STMP2 
EMT 114 
oS: Mp SEOSP :G0 TO SUBPASS HANDLER. 
Pe TPO He RHP eRe HHeeHeTeTHHTeHe Heat HAHA KeAAReReeReneeeeeKeeeeeeeee 
S@TEST & FORMAT ZEROS 
,, Peet eeeeraeaarereereeeeeeeeeeeeneeeaeeaneeeeeeeeneeeeeeneeeeeee 
TST4: 
SCOPE :SCOPE CALL 
NOP [START OF TEST 
MOV #STACK,SP SINITIALIZE STACK POINTER 
MOV SBASE RO [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
MOV #4, STESTN [;SET TEST NUMBER IN APT MAIL BOX 
[SETUP PARAMETERS FOR GENERATING DATA BUFFER 
a MOV #0, RMOFO :18 BIT FORMAT 
MOV #0.,RMDCO ZCYLINDER = 0 
MOV #0. RMDAO [TRACK = 0, SECTOR = 0 
MOV #-258.,RMWCO :2 + 256 WORDS (2°S COMP) 
MOV #BUFONE,RMBAO DATA BUFFER ADDRESS 
MOV #WHRMCS10 [WRITE HEADER AND DATA 
[VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT :CALL BAD SECTOR MODULE 
BR 10% :GO TO 10$ IF NO ERROR 
TYPE  ,SCTMSG [TYPE BAD SECTOR MESSAGE 
EMT [ERROR # DEFINED BY BADSCT SUBROUTINE 
be JMP 1908 [60 TO 190$ IF ERROR 
"mov #ZEROS,STMPO = USE ALL ZEROS DATA PATTERN 
MOV #1, $TMP1 
JSR PC: GENBUF :GO GENERATE DATA BUFFER 
208: 
:PREPARE DEVICE FOR DATA TRANSFER 
JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
“WORD 154130 “TASK DESCRIPTOR AS FOLLOWS: 
TSELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 


;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 


SEQ 0074 


CZRMNAO 
TA 


i et et ts st wt = et 


CDI at et et es os as ss 
NM—OODOnNOUS Wh — 


Soooocoo oOOCOCOoOCOoO 
Saiaiatabad atabatad abadad 


a a at tt 
a es 1 OOOOCO 


—SOOOnNOuUrw 


oooo°o°o 
a oo et 


aad and ed etd 
Www 
WF wr 


—- — se ot es 
Fat pt at pt at sSysss 
OUSlwn—0C0o0en 


pe tat fcage TST 2 


FORMAT 


ooo°oeo 
ot 
— —» 4 ss 
oooo 

PORRR 
Foo fw 


ow 
Ne 


SRonse 


Wwrnrwnr—— 
OofnNoorr 


ooo 
—— 


Wn & & & 
Snrmoe fo 


oooo°o[oo 
et a ot ot tt 
et et et et a et 
es es oe 
NS ou 


oco oOOOoCoCOoOOoO 
ee et et td 


000404 


aot et et OO 
Oe at et ot et 
& rorrrrrry 


00 
000137 
004737 
004737 


004737 


011544 
g00003 
000200 
037360 
011544 


037024 
037722 


037110 
011544 


045224 


011544 


gone: 


000200 
037360 


k 
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001410 


001410 


SEQ 0075 
;RECALIBRATE IF ski OR PIP’ IS SET 
[VERIFY RECALIBRATION 
BR 308 ‘G60 TO 30$ IF NO ER RROR 
NOP [RETURN HERE IF ERR 
EMT TERROR # DEFINED BY TSTPRP SUBROUT INE 
JMP 190$ ‘G0 TO 190$ IF ERROR 
30$: 
;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
MOV #SEEK!GO,RMCS10 ;CHANGE COMMAND TO SEEK 
MOV #PUTINX ‘WRITE REGISTER INDEX TABLE 
MOVB RMDA, (R 
MOVB #RMDC,(R2)+ 
MOVB  #RMOF.(R2)¢4 
MOVB  #RMCS1,(R2)+4 
MOVB #200,(R2)¢ 
JSR PC, PUT :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 40$ 760 TO 40$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PUT SUBROUTINE 
JMP 1908 :G0 TO 190$ IF ERROR 
40$: 
:SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
JSR PC,GETSTS sSETUP FOR STATUS 
aol 38R PC.TIMOUT ‘WAIT FOR SEEK TO COMPLETE 
:GO READ SEEK STATUS 
JSR PC ,GET :60 READ REGISTER(S) owls GET SUBROUTINE 
BR 60$ 60$ IF NO ERR 
NOP ‘RETURN HERE IF ERRO 
EMT TERROR # DEFINED BY CET SUBROUT INE 
JMP 1908 :G0 TO 190$ IF ERROR 
60$: 
:VERIFY THE RESULTS OF THE SEEK COMMAND 
JSR PC, SEKSTS 760 VERIFY RESULTS OF SEEK OPERATION 
BR :G0 TO 70$ IF NO ERROR 
NOP SRETURN HERE Ir ERROR 
EMT TERROR # DEFINED BY SEKSTS SUBROUTINE 
JSR PC,a(SP)+ +60 BACK FOR MORE ERROR CHECKS 
Pat JMP 196$ 760 TO 190$ IF ERROR 


; SETUP - pa cutee an Tr AND DATA tg 


;WRITE HEADER AND DAT 
#PUTING? R2 sEXTEND REGISTER INDEX TABLE 


#RMWC, (R2)+ 


PC PUT 


:G0 WRITE REGISTER(S) ity PUT SUBROUTINE 
80$ :GO0 TO 80$ IF NO ERR 


;RETURN HERE F ERROR” 


SAAC 
OofnNoocnr 


WAWI WWW Wr nore 


FSSENSSESSENSSFS 


WWW 
WWilan 


mt a a a ss ss Ss os SS SS Ss Ss YS Ss 
FES 


SOOooooooooooooCcooooooo 
ee a ke a dd a od od 


Ww 
ws 
OofNOe 


ee et st 
2S SRusee 
NO NEW 

— 

wa 

wu 

ao 


Sooooooe oo 
—_- aad 


ee 
tee 
Www 
oxanNNw 
MO FNS 


went 
“~~ 
an sss 


104000 
000137 


004737 
004737 


000137 


004737 


000137 
004737 
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011544 


037722 
037110 


011544 


040106 


011544 
052622 


011544 
040740 


011544 


000073 
102212 


037360 


011544 


037722 
037110 


011544 
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EMT 
JMP 
80$: 


sWAIT FOR WRITE 
JSR 


JSR 


90$: 


7 VERIFY v1? 


100$: 


110$: 


1208: 


NED BY PUT SUBROUTINE 


zER I 
1908 :60 IF ERROR 


gee TO COMPLETE ~~ READ STATUS 


PC, TIMOUT ;WAIT FOR COMMAND TO COMPLETE 
PC,GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
908 :G0 TO 90$ IF NO ERROR 


“RETURN HERE IF ERROR 
TERROR # DEFINED BY GET SUBROUTINE 


190$ :G0 TO 190$ IF ERROR 


OF WRITE COMMAND 


PC. PRIERR :G0 CHECK FOR PRIMARY ERRORS 
106$ :GO TO 100$ IF NO ERROR 

SRETURN HERE IF ERROR 

TERROR # DEFINED BY PRIERR SUBROUTINE 
PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
196$ 760 TO 190$ IF ERROR 


PC,DTASTS 360 + i — OF DATA TRANSFER 
116$ 760 TO 110$ IF N OER ROR 

RETURN HERE IF ERR 

;ERROR # DEFINED BY OOTASTS SUBROUT INE 


PC,a(SP)+ "GO BACK FOR MORE ERROR CHECKS 
196$ :GO TO 190$ IF ERROR 
PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
126$ :60 TO 120$ IF NO ERROR 

RETURN HERE IF ERROR 

TERROR # DEFINED BY SECERR SUBROUTINE 
PC,a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
196$ :G0 TO 190$ IF ERROR 


;READ — "hate be SECTOR Just WRITTEN 


MOV 


130$: 


RMCS10 ;READ HEADER & DATA COMMAND 
#BUFTWO,RMBAO  ;CHANGE BUS ADDRESS 


PC ,PUT 260 WRITE REGISTER(S) WITH PUT SUBROUTINE 
136$ :GO TO 130$ IF NO ER ROR 

* RETURN HERE IF ERROR 

sERROR # DEFINED 4 me SUBROUTINE 
1908 760 TO 190$ IF ERRO 


;WAIT FOR READ TO a Tee AND GET STATUS 
JSR PC, TIMOUT 


140$: 


;WAIT FOR READ TO COMPLETE 
PC GET 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
146$ 760 TO 140$ IF NO ERROR 

[RETURN HERE IF ERROR 

ZERROR # DEFINED BY GET SUBROUTINE 
190% :GO TO 190$ IF ERROR 


SEQ 0076 


CZRMNAO 
TA 


pee te 
© OOo 


pistes eee 
So 
VI SSeNOAe 


Tt — 


eat § FCTNL TST 2 


FORMA 

011424 
011430 
011432 
011434 
011436 
011440 
011444 
011444 
011450 
011452 
011454 
011456 
011460 
011464 
011464 
011470 
011472 
011474 
011476 
011500 
011504 
011504 
011510 
011512 
011514 
011516 
011520 
011522 
011522 
011530 
011532 
011540 
011544 
011544 
011544 
011546 
011550 
011554 
011560 
011564 
011572 
011600 
011606 
011614 
011622 
011630 


ZEROS 


004737 
5 


000137 
004737 


000137 


004737 


104000 
032737 


040106 


011544 
052622 


011544 
040740 


011544 


036462 


010000 


010000 
010736 


001100 


000005 


000000 


| " 
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001442 
001442 


: VERIFY sek ones ee en OPERATION 


150$: 


160$: 


170$: 
VERIFY 


180$: 


190$: 


CP :60 CHECK FOR PRIMARY ERRORS 
1568" 0 TO 150$ J 0 ERR OR 

‘RETURN MERE. iF NERR 

TERROR # DEFINED BY “PRIERR SUBROUT INE 
PC, a(SP)+ 'GO BACK FOR MORE ERROR CHECKS 
196$ :60 TO 190$ IF ERROR 
PC,DTASTS :G0 VERIFY RESULTS OF pata TRANSFER 
166$ 760 TO 160$ IF NO ERR 

[RETURN HERE IF ERR 

TERROR # DEFINED BY OO TASTS SUBROUT INE 
PC,a(SP)+ ‘60 BACK FOR MORE ERROR CHECKS 
196$ :G0 TO 190$ IF ERROR 
PC, SECERR 7G0 CHECK FOR SECONDARY ERRORS 
176$ :60 TO 170$ IF N 0 ERROR 

SRETURN HERE IF NERR OR 

SERROR # DEFINED BY SECERR SUBROUTINE 
PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
196$ ‘G0 TO 190$ IF ERROR 
PC, CMPBUF :GO COMPARE WRITE, READ DATA BUFFERS 
BUF ONE :STARTING ADDRESS OF WRITE BUFFER 
BUF TWO [STARTING ADDRESS OF READ BUFFER 
180$ :GO TO 180$ IF NO ER ROR 

[RETURN HERE IF ERROR 

TERROR # DEFINED BY CMPBUF SUBROUTINE 
#FMT16,RMOFO TEST 16 BIT MODE YET ? 
#FMT16,RMOFO SET 16 BIT ‘MODE AND 
5% [TEST AGAIN 


SRR 


S#TEST 5 


ZERO FILL TEST 


SERRE AERA AAA AAT AAA 


1815: 


:SCOPE CALL 


START OF TEST 


#STACK SP INITIALIZE STACK POINTER 

SBASE ,RO RO = UNIBUS ADDRESS 

TSTQUE ,R1 3(R1) = DEVICE BEING TESTED 

#5, STESTN 3:SET TEST NUMBER IN APT MAIL BOX 


; SETUP ee FOR GENERATING DATA BUFFER 


#0,RMDCO sCYL Le oye 0 
#0,RMDAO :TRA “<= wee * 0 
#FATI6,RMOFO 316 BIT F fee 


#-258. ,RMWCO rt 256 W S (2°S COMP) 
#BUFONE,RMBAO DATA BUFFER PRDDRESS 
#WH,RMCS10 WRITE HEADER AND DATA 


SEQ 0077 


N 
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r 
| 
! 
| 


15 ZERO FILL TEST SEQ 0078 
203 ;VERIFY THAT SECTOR I$ NOT BAD 
| 011636 004737 034276 JSR PC ,BADSCT :CALL BAD SECTOR MODULE 
011642 000405 BR 760 TO 10$ IF NO ERROR 
011644 104401 063120 TYPE  ,SCTMSG :TYPE BAD SECTOR MESSAGE 
| 011650 104000 EMT SERROR # DEFINED BY BADSCT SUBROUTINE 
011652 000137 012400 JMP 180$ ‘GO TO 180$ IF ERROR 
| 204 011656 10S: 
| 205 011656 012737 064620 001174 MOV HEROS STMPO =; USE ALL ZEROS DATA PATTERN 
| 206 011664 012737 000001 001176 MOV #1,$TMP1 
207 011672 004737 036224 JSR PC, GENBUF :GO GENERATE DATA BUFFER 
| 208 011676 208: 
210 ;PREPARE DEVICE FOR DATA TRANSFER 
211 011676 004737 033352 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
| 011702 154130 . WORD 154130 * TASK DESCRIPTOR AS FOLLOWS: 
| sSELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
sVERIFY CONTROLLER CLEAR OPERATION 
| ;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
| [VERIFY PACK ACKNOWLEDGE 
sRECALIBRATE IF ‘'SKI'' OR ‘'PIP’’ IS SET 
VERIFY RECALIBRATION 
€11704 000404 BR 30$ 0 10 3 NO ERROR 
611706 000240 NOP :RETURN HERE IF ERROR 
011710 10400 EMT sERROR # DEFINED r. TSTPRP SUBROUTINE 
| 011712 000137 012400 JMP 180$ :G0 TO 180$ IF ERROR 
312 011716 308: 
214 ;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
215 011716 012737 000005 001410 MOV M#SEEK'GO,RMCS10 ; CHANGE COMMAND TO SEEK 
216 011724 012702 001551 MOY #PuT wR2 “WRITE REGISTER INDEX TABLE 
217 011730 112722 000006 MOVB = #RMDA, (R2)+ 
218 011734 112722 000034 MOVB #RMDC,(R2)+ 
219 011740 112722 000032 MOVB  #RMOF,(R2)¢+ 
220 011744 112722 000000 MOVB #RMCSI (R2)¢ 
321 011750 112722 000200 MOVB #200, (R2)+ 
223 011754 004737 037360 JSR PC,PUT :60 WRITE REGISTER(S) WITH PUT SUBROUTINE 
011760 000404 BR 40% :G0 TO 40$ IF NO zs ROR ‘ 
011762 000240 NOP ‘RETURN HERE IF ERROR 
011764 104000 EMT sERROR # DEFINED BY PUT SUBROUTINE 
011766 000137 012400 JMP 180$ 760 TO 180$ IF ERROR 
224 011772 40$: 
226 ;SETUP FOR READING STATUS AND THEN WAIT FOR arte TO COMPLETE 
227 011772 004737 037024 JSR PC,GETSTS ;SETUP FOR STATU 
| 228 011776 004737 037722 WER PC,TIMOUT “WAIT FOR SEEK TO COMPLETE 
| 329 012002 50S: 
231 3;GO READ SEEK STATUS 
| 232 012002 004737 037110 JSR PC,GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
012006 000404 BR 608 :G0 TO 60$ IF NO ERROR 
012010 000240 NOP * RETURN HERE IF ERROR 
012012 104000 EMT sERROR # DEFINED BY =" SUBROUT INE 
012014 000137 012400 JMP 180$ 760 TO 180$ IF ERROR 
33 012020 60S: 


———_—_-_—_--. 
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ZERO FILL TEST 


235 

236 012020 
012024 
B1S088 
012030 
012032 
012034 

237 012040 

238 

239 

240 012040 

241 012046 

242 012054 

2435 012060 

244 012064 

245 012070 

246 012074 

247 

248 012100 
012104 
012106 
012110 
012112 

249 012116 

250 

251 

252 012116 

253 

254 012122 
012126 
012130 
012132 
012134 

255 012140 

256 

257 

258 40 


Soooooooooooooooocooo 
ee ee ee ed ee ed ad ed ed td et 
PROPORIPIPIPIAPIPIAPIDPYIPINIPI PIPPIN PIP NPP 
ed ~~~ ww 
SENOS FSSANSSFOOENOS FE 


004737 
000405 


000137 


004737 
004737 


045224 


012400 


000200 
037360 


012400 


037722 
037110 


012400 


040106 


012400 
052622 


012400 
040740 


012400 
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; VERIFY wok RESULTS OF THE SEEK COMMAND 
PC,SEKSTS 360 


708: 


an 70$ 

NOP 

EMT 

JSR PC, a(SP)+ 
MP 186$ 


SEQ 0079 


VERIFY RESULTS of A ee OPERATION 
:G0 TO 70$ IF NO ERR 

RETURN HERE IF ER ROR. 

ERROR # DEFINED BY SEKSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 

360 TO 180$ IF ERROR 


; SETUP = Oy end nine HEADER AND DATA COMMAND 


80$: 


sWAIT FOR WRITE 
JSR 


90$: 
VERIFY 


100$: 


1108: 


120$: 


JSR 


MWCO 
#WH'GO,RMCS1O 


#RACS 


PC, PUT 


80$ 


180% 


e 


PC ,GET 
90% 


180$ 


OF WRITE COMMAND 
PC,PRIERR 


C,P 
1068 
PC, a(SP)+ 
180$ 
PC ,DTASTS 
110$ 
PC,a(SP)+ 
186$ 
PC ,SECERR 


1268 


PC,a(SP)+ 
186$ 


,(R2)+ 
#200,(R2)+ 


FORMAT PARTIAL SECTOR 
WRITE HEADER AND DATA 
:EXTEND REGISTER INDEX TABLE 


:% WRITE “it ta canon WITH PUT SUBROUTINE 


RROR 
ERROR # DEFINED 4 Fn SUBROUT INE 
3:60 TO 180$ IF ERRO 


COMMAND T0 sft AND READ STATUS 
P MOUT WAIT 


FOR COMMAND TO COMPLETE 


+60 READ REGISTER(S) WITH GET SUBROUTINE 
;GO TO 90$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 

:GO TO 180$ IF ERROR 


+60 were FOR "on one ERRORS 
3:60 TO 100$ IF NO He ROR 
RETURN HERE IF ERROR 
; ERROR : Sie one BY PRIERR SUBROUTINE 
FOR tae ERROR CHECKS 
£60 TO 1808 IF ERROR 


360 VERIFY RESULTS OF DATA TRANSFER 
:G0 TO 110$ IF NO ERROR 

RETURN HERE IF ERROR 

sERROR # DEFINED BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:G0 TO 180$ IF ERROR 


:60 cnece FOR yy ERRORS 
:G0 TO 120$ IF NO ERROR 

‘RETURN HERE IF NER ROR 

SERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:G0 TO 180% IF ERROR 


r- 


; 
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ZERO FILL TEST 
64 

65 

266 012220 012737 

267 012226 012737 

44 012234 012737 

270 012242 004737 
012246 000404 
012250 000240 
012252 104000 
012254 000137 

271 012260 

272 

275 

gf 012260 004737 

276 012264 004737 
012270 000404 
012272 000240 
012274 104000 
012276 000137 

277 012302 

278 

279 

280 012302 004737 
012306 000405 
012310 000240 
Oiseie 104000 
012314 004736 
012316 0001357 

281 012322 

282 012322 004737 
012326 000405 
012330 000240 
012332 104000 
012334 004736 
012336 000137 

283 012342 

284 012342 00473 
012346 000405 
012350 00024 
012352 104000 
012354 004736 
012356 000137 

285 012362 

286 

287 

288 012362 004737 
012366 101206 
012370 102212 
012372 000402 
012374 000240 
012376 104000 

289 012400 

290 

291 


102212 
037360 


012400 


037722 
037110 


012400 


040106 


012400 
052622 


012400 
040740 


012400 


036462 


ff. 
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sREAD —_ AND DATA FOR SECTOR just WRITTEN 
#-258. ,RMWCO 32.4 25 


001412 6 WORDS (2°S COMP) 
001410 ROY att "RMCS1O. =: READ HEADER & DATA COMMAND 
001414 MOV #BUFTWO,RMBAO CHANGE BUS ADDRESS 
JSR PC, PUT :60 Q WRITER REGISTER(S) WITH PUT SUBROUTINE 
BR 136$ NO ER ROR 
NOP RETURN WERE 1F ERROR 
EMT SERROR # DEFINED BY ful SUBROUTINE 
JMP 180$ :60 TO 180$ IF ERROR 


1308: 


WAIT FOR READ TO wpe AND GET STATUS 
JSR PC, TIMOUT ;WAIT FOR READ TO COMPLETE 


JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 146$ :G0 TO 140$ IF NO ER ROR 

NOP RETURN HERE IF ERR 

EMT TERROR # DEFINED BY “set SUBROUTINE 

JMP 1808 760 TO 180$ IF ERRO 


1408: 


VERIFY THE RESULTS OF READ OPERATION 
JSR PC,PRIERR GO CHECK FOR gigs ERRORS 


BR 156$ :60 TO 1508 IF 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
we JMP 180$ :GO TO 180$ IF ERROR 
JSR PC ,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 160$ 760 TO 160$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
ae JMP 186$ [60 TO 180$ IF ERROR 
JSR PC, SECERR :G0 CHECK FOR SECONDARY ERRORS 
BR 176$ :60 TO 170$ IF NO_ER ROR 
NOP [RETURN HERE IF ERR 
EMT TERROR # DEFINED BY VSECERR SUBROUT I NE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
Ske JMP 186$ [GO TO 180$ IF ERROR 


VERIFY DATA 
JSR PC ,CMPBUF 
. UF ONE 
-WORD BUF TWO 


GO COMPARE WRITE, READ DATA BUFFERS 
sSTARTING ADDRESS OF WRITE BUFFER 
: STARTING ee A Sg BUFFER 


<£ 
So 
xz 
o 
@w 


BR 1808 :60 TO 180$ IF 
NOP RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY CMPBUF SUBROUTINE 


180$: 


pe eeereeeeeneereeeereteretereeeneheteeeteneeeeteeeteterereneenese 


TaTEST 6 FORMAT CHECK ZEROS 


SEQ 0080 


Kars pai ne | ? 
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16 T CHECK ZEROS SEQ 0081 
'MmARAAAAAAAALARRARALALELEE EEE EEE E ELSES ALAA AEAE SAE AALALAESESAELAESSEALS © 
012400 iét6: 
012400 000004 SCOPE :SCOPE CALL 
012402 000240 NOP SSTART OF Test 
012404 012706 001100 MOV #STACK,SP SINITIALIZE STACK POINTER 
012410 013700 001276 MOV SBASE ,RO [RO = UNIBUS ADDRESS 
012414 013701 001464 MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
= 012420 012737 000006 001226 MOV #6, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
293 ;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
296 012426 012737 000000 001444 MOV #0,RMDCO :CYLINDER = 0 
295 012434 012737 000000 001416 Mov #0,RMDAO :TRACK = 0, SECTOR = 0 
296 O12 012737 010000 001442 MOV #FATI6,RMOFO  :16 BIT FORMAT 
297 012450 012737 177376 001412 MOV #-258.,RMWCO :2 + 256 WORDS (2°S COMP) 
298 012456 012737 101206 001414 MOV WBUFONE,2MBAO  :DATA BUFFER ADDRESS 
299 012 012737 000062 001410 MOV #WH,RMCS10 [WRITE HEADER AND DATA 
301 ;VERIFY THAT SECTOR IS NOT BAD 
012472 004737 034276 JSR PC ,BADSCT :CALL BAD SECTOR MODULE 
012476 000405 BR 10$ :G0 TO 10$ IF NO ERROR 
012500 104401 063120 TYPE ~SCTMSG ; TYPE BAD SECTOR MESSAGE 
012504 104000 EMT TERROR # DEFINED BY gbaoscr SUBROUT INE 
ae 912506 000137 013170 me JMP 2608 [G0 TO 260$ IF ERROR 
303 012512 012737 064620 001174 MOV orate STMPO ;USE ALL ZEROS DATA PATTERN 
304 012520 012737 000001 001176 MOV #1,$TMP1 
305 012526 004737 036224 JSR PC ,GENBUF 3GO GENERATE DATA BUFFER 
306 012532 208: 
308 ;PREPARE DEVICE FOR DATA TRANSFER 
309 012532 004737 033352 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
012536 154130 “WORD 154130 ‘TASK DESCRIPTOR AS FOLLOWS: 
TSELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
‘VERIFY CONTROLLER CLEAR OPE RAT ioe 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
*VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF Akt OR PIP’ IS SET 
[VERIFY RECALIBRATION 
012540 000404 BR 30$ [G0 TO 30$ IF NO ERROR 
012542 000240 NOP [RETURN HERE IF ERROR 
012544 104000 EMT sERROR # DEFINED a TSTPRP SUBROUTINE 
012546 000137 013170 JMP 2608 760 TO 260$ IF ERROR 
310 012552 308: 
312 ;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
313 012552 012737 000005 001410 MOV WSEEK!GO,RMCS10 ;CHANGE COMMAND TO SEEK 
314 012560 012702 001551 MOV #PUTINX,R2 [WRITE REGISTER INDEX TABLE 
315 012564 112722 000006 MOVB  #RMDA, (R2)+ 
316 012570 112722 000034 MOVB #RMDC.(R2)+ 
317 012574 112722 000032 MOVB  #RMOF.(R2)¢ 
318 012600 112722 000000 MOVB = #RMCS1,(R2)¢ 
319 012606 112722 000200 MOVB #200, (R2)+ 
321 012610 004737 037360 JSR PC,PuT :60 WRITE REGISTER(S) WITH PUT SUBROUTINE 
012614 000404 BR 408 “GO TO 40$ IF NO ERROR 
012616 000240 NOP [RETURN HERE IF ERROR 


7 
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T6 FORMAT CHECK ZEROS SEQ 9082 


012620 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
b15e39 000137 013170 JMP 2608 :60 TO 260$ IF ERROR 

322 012626 40$: 

332 :SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 

325 012626 004737 037024 JSR PC,GETSTS 7SETUP FOR STATUS 

326 012632 004737 037722 3gR PC, TIMOUT ‘WAIT FOR SEEK TO COMPLETE 

327 012636 50S: 

329 :G0 READ SEEK STATUS 

330 012636 004737 037110 JSR PC GET 3G0 READ REGISTER(S) WITH GET SUBROUTINE 
012642 000404 BR 60$ :60 TO 60$ IF NO ER ROR 
012644 000240 NOP :RETURN HERE IF ERR 
012646 104000 EMT TERR ce ire mu OfET SUBROUT INE 
012650 000137 013170 JMP 2608 60 70 260$ IF ERROR 

331 012654 60S: 

333 ;VERIFY THE RESULTS OF THE SEEK COMMAND 

334 012654 004737 045224 JSR PC,SEKSTS 3GO VERIFY RESULTS OF SEEK OPERATION 
012660 000405 BR 70$ :60 TO 70$ IF NO ERROR 
012662 000240 NOP [RETURN HERE IF ERROR 
012664 104000 EMT sERROR # DEFINED BY SEKSTS SUBROUTINE 
012666 004736 JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
012670 000137 013170 MP 2608 760 TO 260$ IF ERROR 

335 012674 708: 

337 SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 

338 012674 012737 000063 001410 #WH'GO.RMCS10  ;WRITE HEADER AND DAT 

339 012702 012702 001554 nov #PUTINKX*+3,R2 sEXTEND REGISTER INDEX TABLE 

349 012706 112722 000002 MOVB  #RMWC, (R24 

341 012712 112722 000004 MOVB @#RMBA.(R2)+ 

342 012716 112722 000000 MOVB  #RMCS1,(R2)4 

343 012722 112722 000200 MOVB #200,(R2)¢ 

345 012726 004737 037360 JSR PC ,PUT 360 ei REGISTER(S) WITH PUT SUBROUTINE 
012732 000404 BR 80$ :G0 TO 80$ IF NO ER ROR 
012734 000240 NOP [RETURN HERE IF ERR 
012736 104000 EMT TERROR # DEFINED BY Cut SUBROUTINE 
012740 000137 013170 JMP 2608 :G0 TO 260$ IF ERROR 

346 012744 80S: 

348 sWAIT FOR WRITE gee TO COMPLETE - READ STATUS 

349 012744 006737 037722 JSR PC, TIMOUT ;WAIT FOR COMMAND TO COMPLETE 

351 012750 004737 037110 JSR PC GET :G0 READ REGISTER(S) oul GET SUBROUTINE 
012754 000406 BR 90$ 760 79 908 IF NO. ERR 
012756 000240 NOP [RETURN HERE IF 
012760 104000 EMT SERROR # DEFINED. er (Ger SUBROUT INE 
012762 000137 013170 JMP 260% :G0 TO 260$ IF ERROR 

352 012766 908: 

354 TVERIFY RESULTS OF WRITE COMMAND 

355 012766 004737 040106 JSR PC PRIERR ;GO CHECK FOR PRIMARY ERRORS 
012772 000405 BR 1068 760 TO 100$ IF NO ERROR 
012774 000240 NOP [RETURN HERE IF ERROR 
012776 104000 EMT sERROR #@ DEFINED BY PRIERR SUBROUTINE 
013000 004736 JSR PC,a(SP)+¢ :GO BACK FOR MORE ERROR CHECKS 
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FORMAT 
013002 

356 013006 

357 Bi anes 
01301 
013014 
013016 
013020 
013022 

358 013026 

359 013026 
013032 
013034 
013036 
013040 
013042 

360 013046 

361 

362 

363 013046 

364 

365 013054 
013060 
013062 
013064 
013066 

366 013072 

367 

368 

369 013072 

370 

371 013076 
013102 
013104 
013106 
013110 

372 013114 

373 

374 

375 013114 
013120 
013122 
013124 
013126 
013130 

376 013134 

377 013134 
013140 
013142 
013144 
013146 
013150 

378 013154 

579 013154 
013160 
013162 
013164 
013166 


CHECK ZERO 
000137 
004737 

5 


012737 
004737 


s5888 85 
gssse Ses 


013170 
052622 


013170 
040740 


013170 


000053 
037360 


013170 


037722 
037110 


013170 


040106 


013170 
052622 


013170 
040740 


F 7 
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001410 


100$: 


1108: 


1208: 


JMP 


2608 
PC DTASTS 
116$ 
PC,a(SP)+ 
266$ 
PC, SECERR 


1268 


PC ,a(SP)+ 


260$ 


:G0 TO 2608 IF ERROR 


GO VERIFY RESULTS OF DATA TRANSFER 
260 TO 1108 IF NO . “ee 


RETURN HERE IF ERR 

ERROR | - DEFINED BY OOTASTS SUBROUTINE 
:GO BACK FOR MORE an OR CHECKS 

G0 TO 2608 IF ERR 


:60 crete FOR 2 yr ERRORS 
:G0 TO 120$ IF NO ERROR 

RETURN HERE IF ERROR 

sERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

360 TO 2608 IF ERROR 


sWRITE — HEADER AND DATA FOR SECTOR JUST WRITTEN 


130$: 


;WAIT FOR WRITE 
JSR 


140$: 
sVERIFY 


150$: 


160$: 


JSR 


#WCH!GO,RMCS10 


PC PUT 


1308 


2608 


sWRITE CHECK COMMAND 


:60 et Th ok tne Bes PUT SUBROUTINE 
260 TO 1308 IF y A 
RETURN HERE If ERR 


OR. 
;ERROR # DEFINED BY PUT SUBROUTINE 
360 TO 260$ IF ERROR 


Pert inow COMPLETE uAlr GET STATUS 


OuT 


PC,GET 
140$ 


260% 


PC 
156$ 
PC, a(SP)+ 
2608 


PC ,DTASTS 


1608 


PC, a(SP)+ 
260% 


PC, SECERR 


1768 


PC ,a(SP)+ 


FOR READ TO COMPLETE 


:60 vt REGISTER(S) WITH GET SUBROUTINE 
G0 TO 140$ IF NO = _ 

RETURN HERE IF ERR 

sERROR # DEFINED BY GET SUBROUT I NE 


:G0 TO 260$ IF ERROR 


, =e” OF WRITE CHECK wig 
PRIERR :60 


CHECK FOR PRIMARY ERRORS 
ERROR 


[G0 TO 150$ IF NO 
ZERROR # DEFINED BY PRIERR SUBROUTINE 


O BACK FOR MORE ERROR CHECKS 
:G0 TO 260$ IF ERROR 


:G0 VERIFY RESULTS = Daas TRANSFER 
:G0 TO 160$ IF NO ERR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 
O BACK FOR MORE ERROR CHECKS 

£60 TO 2608 IF ERROR 


:GO0 CHECK FOR SECONDARY ERRORS 
:G0 TO 1708 IF NO ERROR 

;RETURN HERE IF ERROR 

SERROR # DEFINED BY SECERR pueneut tee 
G0 BACK FOR MORE ERROR CHECK 


SEQ 0083 


7 
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16 FORMAT CHECK ZEROS SEQ 0084 
380 013170 1708: 
zee 013170 2608: 
384 3 ;eeererereeerarerereeeererereereeeeeaKeeekeentaneneneneeeeeeeeee 
;#TEST ? FORMAT CHECK ZEROS W/ WCE ERROR 
etree erereareeeeeeeeeeeeeeeeeeeeAeeeeReakaereeaeeeeeeeeeeeeeeeee 
013170 000004 i817: SCOPE SCOPE 
0 CALL 
013172 000240 NOP :START OF TEST 
013174 012706 001100 MOV #STACK,SP INITIALIZE STACK POINTER 
013200 013700 001276 MOV SBASE ,RO RO = UNIBUS ADDRESS 
013204 013701 001464 MOV TSTQUE ,R1 3(R1) = DEVICE BEING TESTED 
385 013210 012737 000007 001226 MOV #7,STESTN >;SET TEST NUMBER IN APT MAIL BOX 
386 ;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
387 013216 012737 000000 001444 MOV #0,RMDCO :CYLINDER = 0 
388 013224 012737 000000 001416 MOV #0, RMDAO :TRACK = 0, SECTOR = 0 
389 013232 012737 010000 001442 MOV #FMTI6, as 716 BIT FORMAT 
390 013240 012737 177376 001412 MOV #-258. ,RMWCO '2 + 256 WORDS (2°S COMP) 
391 013246 012737 101206 001414 MOV #BUFONE. RMBAO DATA BUFFER ADDRESS 
392 013254 012737 000062 001410 MOV #WH,RMCS10 [WRITE HEADER AND DAIA 
;VERIFY THAT SECTOR IS NOT BAD 
013262 004737 034276 JSR PC ,BADSCT :CALL BAD SECTOR MODULE 
013266 000405 BR 108 :GO TO 10% IF NO ERROR 
013270 104401 063120 TYPE , SCTMSG :TYPE BAD SECTOR MESSAGE 
013274 104000 EMT TERROR # DEFINED BY BADSCT SUBROUTINE 
013276 000137 014130 JMP 2608 :G0 TO 260$ IF ERROR 
395 013302 10$: 
396 013302 012737 064620 001174 MOV #ZEROS,STMPO =; USE ALL ONES DATA PATTERN 
397 013310 012737 000001 001176 MOV #1,STMP1 
398 013316 004737 036224 JSR PC ,GENBUF :GO GENERATE DATA BUFFER 
44 013322 208: 
401 ;PREPARE DEVICE FOR DATA TRANSFER 
402 013322 004737 033352 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
013326 154130 “WORD 154130 ;TASK DESCRIPTOR AS FOLLOWS: 
SSELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
[VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF ‘'SKI' OR “'PIP’’ IS Set 
:VERIFY RECALIBRATION 
013330 000404 BR 30% :G0 TO 30$ IF NO ERROR 
013332 000240 NOP :RETURN HERE IF ERROR 
013334 104000 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
013336 000137 014130 JMP 260% 760 10 260$ IF ERROR 
rr +4 013342 30$: 
405 ;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
406 013342 012737 000005 001410 MOV #SEEK!GO,RMCS10 ;CHANGE COMMAND TO SEEK 
407 013350 012702 001551 MOV #PUTINX,R2 SWRITE REGISTER INDEX TABLE 
408 013354 112722 000006 MOVB #RMDA, (R2)+ 
409 013360 112722 000034 MOVB MRMDC,(R2)+ 
410 013364 112722 000032 MOVB MRMOF ,(R2)+ 


CZRMNAO RM05/3/2 
V7? FORMAT CH 
411 013370 
hy | 013374 

41 
414 013400 
013404 
013406 
013410 
013412 
415 013416 
416 
417 
418 013416 
419 013422 
420 013426 
421 
422 
423 013426 
013432 
013434 
013436 
013440 
424 013444 
425 
426 
427 013444 
013450 
013452 
013454 
013456 
013460 
428 013464 
429 
430 
431 013464 
432 013472 
433 013476 
434 013502 
435 013506 
436 013512 
437 
438 013516 
013522 
013524 
013526 
013530 
439 013534 
440 
41 


4 

442 013534 
re) 

S46 Oi teee 


445 013556 
446 


—> ss 


TST 2 
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EROS W/ WCE ERROR 


000000 
000200 


037360 


014130 


037024 
037722 


037110 


014130 


045224 


014130 


eoore? 


000200 
037360 


014130 


037722 
037110 


014130 


MOVB = #RMCS1,(R2)+ 
MOVB #200, (R2)4 
JSR PC, PUT 7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 40$ :60 TO 40$ IF NO ERROR 
NOP ZRETURN HERE IF ERROR 
EMT SERROR # DEFINED BY PUT SUBROUTINE 
JMP 2608 760 TO 260$ IF ERROR 
40$: 
> SETUP FOR gREADING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
PC,GETSTS sSETUP FOR STATUS 
at we PC,TIMOUT ‘WAIT FOR SEEK TO COMPLETE 
3GO READ SEEK STATUS 
JSR PC GET 760 READ REGISTER(S) wim GET SUBROUTINE 
BR 60$ :G0 TO 60$ IF NO ERR 
NOP :RETURN HERE IF ERRO 
EMT TERROR # DEFINED BY ET SUBROUT INE 
JMP 2608 760 TO 2608 IF ERROR 
608: 
SVERIFY THE RESULTS OF THE SEEK COMMAN 
JSR PC, SEKSTS 760 VERIFY RESULTS OF SEEK OPERATION 
BR :G0 TO 70$ IF NO ER ROR 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY SEKSTS SUBROUTINE 
JSR PC,a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
JMP 260$ 760 TO 260$ IF ERROR 
708: 
> SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
001410 #WH'GO,RMCS1O ;WRITE HEADER AND DATA 
Rov #PUTINX+3,R2 SEXTEND REGISTER INDEX TABLE 
MOVB #RMWC,(R2)+ 
MOVE  #RMBA.(R2)+ 
MOVB  =#RMCS1,(R2)+ 
MOVB #200, (R2)¢ 
JSR PC,PUT 7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 80$ :G0 TO 80$ IF NO ER ROR 
NOP :RETURN HERE JF ERRO 
EMT TERROR # DEFINED BY Put SURROUT INE 
on JMP 2608 760 TO 260$ IF ERROR 


WAIT FOR WRITE 
JSR 


90$: 


COMMAND TO este on READ STATUS 
PC, TIMOUT WAIT FOR COMMAND TO COMPLETE 


PC,GET 60 READ REGISTER(S) guile GET SUBROUTINE 
90% :G60 TO 90$ IF NO ERR 

RETURN HERE IF ER ROR. 

TERROR # DEFINED BY oe! SUBROUTINE 
2608 760 TO 2608 IF ERRO 


SEQ 0085 


. RMNAO tt | FCTNL TST 2 
T CHECK ZEROS W/ WCE ERROR 


448 


feleleleleleleleleleleleleleolelaleleleoleal a) 
— os as a st as ss ss a — ss “a ss ss a a 
ssereeeseereecunnuccs 


WwNnNn—— 
OfNOO fo 


004737 
5 


104000 
004736 


000137 


005137 


012737 


000137 


004737 
004737 


000137 


032737 


040106 


014130 
052622 


014130 
040740 


014130 


102210 


000053 001410 
037360 


014130 


037722 
037110 


014130 


040106 


014130 


040000 001344 


sVERIFY RESULTS OF WRITE COMMAND 
JSR PC PRIERR 


BR 1068 

NOP 

EMT 

JSR PC,a(SP)+ 

MP 260$ 
1008: 

JSR PC ,DTASTS 

BR 116$ 

NOP 

EMT 

JSR PC,a(SP)+ 

jMP 266$ 
1108: 

JSR PC, SECERR 

BR 126$ 

NOP 

EMT 

JSR PC,a(SP)+ 

JMP 260$ 
120$: 


sALTER DATA BUFFER 
COM BUF TWwO-2 


RR. 
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+ crete FOR a wr ERRORS 
0 1008 IF N Paka ~ 

‘RETURN HERE IF ERR 

TERROR : DEFINED BY "PRIERR SUBROUTINE 

:GO BACK FOR MORE ERROR CHECKS 

:G0 TO 2608 IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
:G 0 NO .o a. 


URN IF ERR 
TERROR # DEFINED BY OOTASTS SUBROUTINE 
:GO BACK FOR MORE = CHECKS 
:G0 TO 2608 IF ERR 


60 cneee FOR yy ERRORS 
120$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

:GO BACK FOR MORE ERROR CHECKS 

3:60 TO 260$ IF ERROR 


; COMPLEMENT LAST DATA WORD 


; SETUP ,* WRITE CHECK HEADER AND DATA COMMAND 


#WCH!GO,RMCS10 
JSR PC PUT 


sWRITE CHECK COMMAND 


360 we ya et PB oie PUT SUBROUTINE 
:G0 TO 1808 IF y Ai 

43 Bh ag HERE IF ERR 

:ERROR # DEFINED BY *Pur SUBROUTINE 

3:60 T0 2608 IF ERROR 


WAIT rm es — COMMAND TO COMPLETE AND READ STATUS 
J 


BR 180$ 
NOP 
EMT 
JMP 260% 
180$: 
;TIMOUT 
JSR PC,GET 
BR 196$ 
NOP 
EMT 
JMP 2608 
190$: 
:CHECK FOR PRIMARY ERRORS 
JSR PC, PRIERR 
BR 2008 
NOP 
EMT 
JSR PC, a(SP)+ 
JMP 2608 
2008: 


;WAIT FOR COMMMAND TO COMPLETE 


+ READ Si i tao te WITH GET SUBROUTINE 
0 TO 190$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

3:60 TO 260% IF ERROR 


:GO0 CHECK FOR re cae ERRORS 
:G0 TO 2008 IF NO ERROR 

;RETURN HERE IF ERROR 

ERROR ” ree ee BY 44 SUBROUTINE 
:G0 BACK FOR MORE pe R CHECKS 

:G0 TO 2608 IF ERRO 


3 MAKE Se THE WRITE CHECK ERROR WAS DETECTED 


#WCE ,RMCS21 


31S WRITE CHECK ERROR SET?? 


SEQ 0086 


7? 


MAT 
are 013736 
he gta 


4004 
485 014006 
486 
487 
488 014006 


489 014014 
490 014022 
491 


492 
493 014030 
494 014036 
495 


ooooooo 
— + ss 
yo ot at ot ot oF 
—+ 4 —— 2 4 —4 ss 
Ws Eww 

SESFERSS 


001023 
004737 
5 


737 
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052622 


014130 


001344 
040000 
001344 


102210 
001340 
000002 


000022 
000200 


037110 
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001142 
001140 


001136 


001142 


001226 


001444 
001416 
001442 


205$: 


2108: 
;VERIFY 


BNE 


2108 YES!! 
PC, DTASTS :G0 VERIFY RESULTS OF DATA TRANSFER 
205$ 760 TO 205% IF OER ROR 
SRETURN HERE IF NER ROR 
TERROR # DEFINED BY DTASTS SUBROUTINE 
PC,a(SP)+ °GO BACK FOR MORE apron CHECKS 
266$ 760 TO 2608 IF ERR 
RCS21 . SGDDAT ;LOAD EXPECTED STATUS 
RNC, SBDDAT LOAD RECEIVED STATUS 
2608 


THE ADDRESS OF THE WRITE CHECK ERROR 


#BUF TWO-2,SGDADR;LOAD EXPECTED pret to 
RMBAI , S$BDADR LOAD RECEIVED ADDRESS 
#2, $BDADR :DECREMENT RECEIVED ADDRESS 


sGET WCE DATA AND VERIFY IT IS OK 
MOVB #RMDB,G 


230$: 


2208: 


2608: 


MOVB 


ETINX ;SETUP FOR READING RMDB 
#200, GETINX+1 


PC,GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
230$ :GO TO 230$ IF N 0 ERROR 

‘RETURN HERE IF NER ROR 

TERROR # DEFINED BY GET SUBROUTINE 


2608 360 TO 260$ 

RMDB1,SBDDAT LOAD RECEIVED DATA WORD 
eT ee ;LOAD EXPECTED DATA WORD 
SGDADR,SBDADR ;1S ADDRESS OK?? 

2208 zYES!! 

340 

260% 

SGDDAT, SBDDAT :1S DATA WORD OK?? 

i sves!! 


PeeeeerereereeeeeeeeeeeeeeeeeeeeeeeReeeeeeeeeeeteeeeeeeeeeeeeeee 


TATEST 10 


,eeeeeereraeeeeeeeeeeeeeeeeeteeeeeeeeeeReeeeeeeeneneteeeneneneee 


78110: 


FORMAT ONES 


: SCOPE a 
:START OF TEST 
#STACK SP INITIALIZE wr POINTER 
SBASE , RO 7RO = UNIBUS A DRESS 
TSTQUE RI (RV) = = DEVICE BEING TESTED 
#10, STESTN :3SET TEST NUMBER IN APT MAIL BOX 


; SETUP es FOR GENERATING DATA BUFFER 


MOV 
MOV 


#0,,RMDCO att YLINDER = Q 
= 0, SECTOR = 0 


#0,RMDAO RACK 
#FAT16,RMOFO 1 BIT “FORMAT 


SEQ 0087 


MOANA 

Mherornofnorntr 

NOV EWI —O 
oooCooocoocoo 
— oe as ws ws 
Pak at et ee et et at ee ee 
Quik & Mr 
ROOMS ROO 


014270 
014272 
014274 
014276 
528 014302 
529 
530 
531 014302 
532 014310 
533 014314 
534 014320 
535 014324 
536 014350 
537 014334 
538 
539 014340 
014344 
014346 
014350 
352 


014 
540 014356 
541 


542 
543 014356 


54 

548 014366 
014372 
014374 


St OOD 
hs ss 
Rormunofnonenon 
SN NN 
Ww NMMVNVNoOWw 
NM PROPOR POrUfo~N 


3 


014750 


064556 
000001 
036224 


033352 


014750 


000005 
001551 
000006 


000200 
037360 


014750 


K 7 
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001174 
001176 


001410 


MOV #-258. ,RMWCO 
MOV sour out. RMBAO 
MOV #WH,RMCS10 
;VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT 
BR 10$ 
TYPE /SCTMSG 
EMT 
JMP 180$ 
108: 
MOV #ONES ,STMPO 
MOV #1, $TMP1 
JSR PC. GENBUF 
208: 
sPREPARE DEVICE FOR DATA TRANSFER 
JSR PC, TSTPRP 
“WORD 154130 
BR 30$ 
NOP 
EMT 
JMP 1808 
30$: 


32 + 256 WORDS (2° en 


DATA BUFFER ADDR 
WRITE HEADER AND DATA 


;CALL BAD SECTOR MODULE 

:G0 TO 10$ IF NO ERROR 

:TYPE BAD SECTOR MESSAGE 

ERROR # DEFINED BY BADSCT SUBROUTINE 


:G0 TO 180$ IF ERROR 
sUSE ALL ONES DATA PATTERN 
GO GENERATE DATA BUFFER 


sPREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

;SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 


PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 

s;RECALIBRATE IF ‘’SKI'’ OR ‘PIP’ IS SET 
: VERIFY RECALIBRATION 


360 TO 30$ IF NO ae 

RETURN HERE IF ERR 

ERROR # oe’ ite BY OT STPRP SUBROUT I NE 
:60 TO 180$ IF ERROR 


SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE - CYLINDER 
MOV WSEEK!GO,RMCS1O ;CHANGE COMMAND TO SEEK 


40$: 


SETUP FOR READING STATUS AND 
JSR PC,GETSTS 


50$: 


GO READ SEEK STATUS 
JSR 


JSR 


Br 
NOP 


PC, PUT 
40$ 


180% 


PC,TIMOUT 


PC GET 
60$ 


iWRITE REGISTER INDEX TABLE 


:G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
:G0 TO 408 IF ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED + Me SUBROUT I NE 

:G0 TO 180$ IF ERRO 


& 


THEN WAIT FOR SEEK TO COMPLETE 
;SETUP FOR STATUS 
:WAIT FOR SEEK TO COMPLETE 


GO READ war yt WITH GET SUBROUTINE 
:G0 TO 60$ JF NO ERROR 
:RETURN HERE If ERROR 


SEQ 0088 


C 
T 


Z 
1 


R 
0 


> 
Snr 
~s 


oooo°c[oo 
—> —) 
oe ee ee 
roP oP a? ot of ot 


SOOCoOooCoooCoooooeoo 
ee ee es tn ee te ot ss st 
Dk el ek ek el el el el el ele ek a Se De el el 
DDD PVP DV PUDV DUIS SUS AUIS 


~“ 


376 104000 
000137 


004737 


RSerNoFr FS 
S 


0 
000137 


004737 
004737 


SFRSSENSS FASERSSRNS 
° 
S 
ze 
ro) 
w 


MNAO RMOS/3/2 FCTNL TST 2 
FORMAT ONES 


014750 


045224 


014750 


gore: 


000200 
037360 


014750 


037722 
037110 


014750 


040106 


014750 
052622 


014750 
040740 


. 2 
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001410 


60$: 
VERIFY 


70$: 


EMT 
JMP 180$ 

THE RESULTS OF THE SEEK 
JSR PC ,SEKSTS 

BR 70$ 

NOP 

EMT 

JSR PC,a(SP)+ 

JMP 186$ 


+g 4 FIN re A BY — SUBROUTINE 


DEF I 
: 80$ IF ERRO 
COMMAND 
GO VERIFY RESULTS OF SEEK OPERATION 
:G0 TO 70$ IF - ERROR 
;RETURN HERE IF ERROR 
;ERROR # DEFINED BY SEKSTS — 
:GO BACK FOR Mee ERROR CHECK 
:G0 TO 180$ IF ERROR 


= 


; SETUP — 9 cet ay he HEADER AND DATA COMMAND 


80$: 


;WAIT FOR WRITE 
JSR 


90$: 
s VERIFY 


100$: 


1108: 


JSR 


RMCS1 
WPUTINK?S, R2 


wRMWC, (R2)¢ 
#RMBA, (R2)+ 


#RMCS1, (R2)4 


#200, (R2)+ 
PC, PUT 
80$ 


180% 


s;WRITE HEADER AND DATA 
EXTEND REGISTER INDEX TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:G0 TO 80$ IF NO ERROR 


ERROR 
: # DEFINED a — SUBROUTINE 
:G0 TO 180$ IF ERRO 


COMMAND TO COMPLETE AND READ STATUS 
PC, TIMOUT 


PC,GET 
90% 


180$ 


OF WRITE COMMAND 
PC ,PRIERR 


C 
106$ 


PC ,a(SP)+ 


180$ 


PC, SECERR 


126$ 


;WAIT FOR COMMAND TO COMPLETE 


3GO READ REGISTER(S) WITH GET SUBROUTINE 
360 TO 90$ IF NO = ~% 

;RETURN HERE IF ERR 

ERROR # DEFINED BY oer SUBROUTINE 

60 TO 180$ IF ERROR 


260 CHECK FOR PRIMARY ERRORS 
NO ERROR 


ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO0 BACK FOR MORE ERROR CHECKS 
G0 TO 180$ IF ERROR 


260 VERIFY RESULTS OF DATA TRANSFER 
G0 TO 1108 IF , * ERROR 

RETURN HERE IF ERROR 

sERROR # DEFINED” BY bb a. a 
;G0 BACK FOR MORE ERROR CHECKS 

360 TO 180$ IF ERROR 


:G0 CHECK FOR ee ERRORS 
360 TO 1208 IF NO ERROR 

;RETURN HERE IF ER ROR 

TERROR # DEFINED BY SECERR SUBROUTINE 


SEQ 0089 


MNAO thf BY FCTNL TST 2 


SELSLS 
Fwn—O 0m 


595 
596 


on 


ww 
oo 
polo lo lojlolejmlelelolelolejolelolololololo) 


mee et es es os os 


ou 
SS 


SENS 


MO SMO hw 


004736 
000137 


012737 
012737 


004737 
000137 


004737 
004737 


000137 


004737 
5 


000137 
004737 


000137 
004737 


000137 


9067s! 


104000 


014750 


000073 
102212 


037360 


014750 


037722 
037110 


014750 


040106 


014750 
052622 


014750 
040740 


014750 


036462 


— 
oOo 


JSR 


JMP 


1208: 


PC ,a(SP)+ 


186$ 


n 7 
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GO BACK FOR MORE = CHECKS 
:G0 TO 180$ IF ERR 


;READ HEADER AND guie FOR SECTOR Just WRITTEN 
MOV H!GO,RMCS10 =; REA 


MOV 


130$: 


WBF TWO. RMBAO 


PC,,PUT 


136$ 


1808 


D HEADER & DATA COMMAND 
CHANGE BUS ADDRESS 


:G0 WRITE sth ah cm Rie PUT SUBROUTINE 
:60 TO 1 Sakon 


30$ IF 
;RETURN HERE IF NERR 
sERROR # DEFINED BY “Put SUBROUTINE 
:G0 TO 180$ IF ERRO 


;WAIT FOR READ TO ire AND GET STATUS 
JSR PC,TIMOUT 


JSR 

1408: 
;VERIFY THE 
R 

150$: 


160$: 


170$: 


: VERIFY ~y 


180$: 


PC,GET 


140$ 


180$ 


ee teen ahaa! a: 


PC 
1568 
PC,a(SP)+ 
180$ 
PC,DTASTS 
160$ 
PC,a(SP)+ 
180$ 
PC, SECERR 


176$ 


PC ,a(SP)+ 


180$ 


PC ,CMPBUF 
BUF ONE 
BUF TWO 
1808 


WAIT FOR READ TO COMPLETE 


+60 t oe ts co enn WITH GET SUBROUTINE 


140$ IF_N 
TRETURN HERE IF ERROR 
sERROR # DEFINED BY GET SUBROUTINE 
:60 TO 180$ IF ERROR 


O CHECK FOR PRIMARY ERRORS 
‘G0 TO 150$ IF NO a OR 

RETURN HERE IF ERR 

ERROR # DEFINED BY OPRIERR SUBROUT INE 


:G0 BACK FOR MORE ERROR CHECKS 
:G0 TO 180$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
:G0 TO 160$ IF NO ERROR 

RETURN HERE IF ERROR 

sERROR # DEFINED BY DTASTS SUBROUTINE 
:G0 BACK FOR MO * — OR CHECKS 

G0 TO 1808 IF E 


60 cree FOR SECONDARY ERRORS 
O 170$ IF NO ERROR 
RETURN HERE IF ERROR 


SERROR # DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
:GO TO 180$ IF ERROR 


GO COMPARE WRITE, READ DATA BUFFERS 


sSTARTING ADDRESS OF WRITE BUFFER 
STARTING ADDRESS OF READ BUFFER 

:G0 TO 180$ IF NO = “as 

RETURN HERE IF ERR 

ERROR # DEFINED By CMPBUF SUBROUT I NE 


SEQ 0090 


N 7 
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T11 FORMAT CHECK ONES SEQ 0091 
605 SRRARRAARAAREEAREAEAAETAAAAKeeeAKAeKAKeeeKeKeeKeketekeeKeeeeeeeee 
TEST 11 FORMAT CHECK ONES 
SERRA AREER ETE EATER AARAAERAKARRARAKAKAKKHeHeeKeee ee 
014750 téT11: 
014750 000004 SCOPE :SCOPE CALL 
014752 000240 NOP ‘START OF Test 
014754 012706 001100 MOV #STACK,SP SINITIALIZE STACK POINTER 
014760 013700 001276 MOV SBASE,RO :RO = UNIBUS ADDRESS 
014764 013701 001464 MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
aoe 014770 012737 000011 001226 MOV #11,$TESTN +;SET TEST NUMBER IN APT MAIL BOX 
;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
608 014776 012737 000000 001444 MOV #0,RMDCO :CYLINDE R=0 
609 015004 012737 000000 001416 MOV #0. RMDAO [TRACK = 0, SECTOR = 0 
610 015012 012737 010000 001442 MOV #FMTIO,RMOFO :16 BIT. FORM 
611 015020 012737 177376 001412 MOV #-258.,.RMWCO :2 + 256 6 WORDS S (2 s con) 
612 015026 012737 101206 001414 MOV WBUFONE,RMBAO :DATA BUFFER A 
613 15034 012737 000062 001410 MOV #WH,RMCS10 [WRITE HEADER AND. DATA 
615 :VERIFY THAT SECTOR IS NOT BAD 
015042 004737 034276 JSR PC ,BADSCT ;CALL BAD SECTOR MODULE 
015046 000405 BR 10$ 0 10$ IF NO ERR 
015050 104401 063120 TYPE  ,SCTMSG “TYPE BAD SECTOR MESS AGE 
015054 104000 EMT TERROR # DEFINED BY geanscr SUBROUT INE 
015056 000137 015540 JMP 2608 [60 TO 260$ IF ERROR 
616 015062 10$: 
617 015062 012737 064556 001174 MOV #ONES ,STMPO [USE ALL ONES DATA PATTERN 
618 015070 012737 000001 001176 MOV #1,$1M 
619 015076 004737 036224 JSR PC. GENBUF :GO GENERATE DATA BUFFER 
620 015102 208: 
622 :PREPARE DEVICE FOR DATA TRANSFER 
623 015102 004737 033352. JSR PC, TSTPRP sPREPARE DEVICE FOR TEST 
015106 154130 “WORD 154130 ‘TASK DESCRIPTOR AS FOLLOWS: 
‘SELECT DEVICE & VERIFY DEVICE AVAILABLE 
[CLEAR CONTROLLER & SELECT DEVICE 
‘VERIFY CONTROLLER CLEAR OPERATION 
‘PACK ACKNOWLEDGE IF VOLUME NOT VALID 
[VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF ‘'SKI' OR PIP’ IS SET 
[VERIFY RECALIBRATION 
015110 000404 BR 30% 760 TO 30$ IF NO ERROR 
015112 000240 NOP RETURN HERE IF ERROR 
015114 104000 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
015116 000137 015540 JMP 260$ 760 TO 260$ IF ERRO 
624 015122 308: 
626 ;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
627 015122 012737 000005 001410 MOV #SEEK!GO,RMCS10 ;CHANGE COMMAND TO SEEK 
628 015130 012702 001551 MOV #PUTINX,R2 [WRITE REGISTER INDEX TABLE 
629 015134 112722 000006 MOVB = #RMDA, (224 
630 015140 112722 000034 MOVB  #RMDC.(R2)+4 
631 015144 112722 000032 MOVB  #RMOF.(R2)4 
632 015150 112722 000000 MOVB  #RMCS1,(R2)+ 
633 015154 112722 000200 MOVB «#200, (R2)¢ 
635 015160 004737 037360 JSR PC,PUT :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 


-— 
| 


| 


MNAO ea af ates TST 2 
HECK ONES 


mn 
oO 


oeee 
OS 

ooo ooooo 
a at tt 
wu Wn 2 
ror et at ot 
oon Sno 
noe onNooe 


Fwn on 


SFFSF 
Soooceo°0oo 


FFF 
aOnoOw 


oooo°0c[eo 
ts ss i 
WMA 
YEEeS 
ESSERE 


wns 
Ons 


™m 


ee ee a ed td 
on ™N 
SRRo ~m 


Soocoeooo ooo°o[o°o 
VOM WW 
WAN 

eS 

*o 


000404 


000137 


004737 
004737 


004737 


000137 


004737 


037110 


015540 


045224 


015540 


ore 


000200 
037360 


015540 


037722 
037110 


015540 


040106 
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001410 


:G0_ TO 40$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 
360 TO 260$ IF ERROR 


sSETUP FOR READING STATUS AND THEN WAIT FOR tit TO COMPLETE 
JSR PC,GETSTS :SETUP FOR 


ATU 
:WAIT FOR seeR TO COMPLETE 


:G0 READ STi aS che Bie GET SUBROUTINE 
:G0 TO 60$ IF NO 

Ohne s HERE IF ERR 

; ERROR BS ine ane GET SUBROUTINE 

:60 TO 5608 IF ERROR 


COMMAND 

GO VERIFY ae on Ps OPERATION 
:60 TO 70$ IF NO ERR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY SEKSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:G0 TO 260$ IF ERROR 


SETUP AND a thy: HEADER AND DATA COMMAND 
H!GO,RMCS10 


BR 40$ 
NOP 
EMT 
JMP 2608 
40$: 
3gR PC, TIMOUT 
50$: 
3GO READ SEEK STATUS 
JSR PC,GET 
BR 60$ 
NOP 
EMT 
JMP 2608 
60$: 
;VERIFY THE RESULTS OF THE SEEK 
JSR PC, SEKSTS 
BR 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 260$ 
70$: 
MOV 
MOV PPUTINae o: R2 
MOVB #RMWC, (R234 
MOVB = #RMBA. (R2)+ 
MOVB  #RMCS1,(R2)+4 
MOVB «#200, (R2) + 
JSR PC, PUT 
BR 80$ 
NOP 
EMT 
JMP 260 


80$: 


sWAIT FOR WRITE 
JSR 


90$: 


VERIFY RESULTS 
JSR 


BR 
NOP 


PC,GET 
90$ 


260% 


OF WRITE COMMAND 
PRIERR 


PC 
106$ 


WRITE HEADER AND DATA 
sEXTEND REGISTER INDEX TABLE 


+60 WRITE goat B sate PUT SUBROUTINE 
;G0 TO 80$ IF NO ERR 

;RETURN HERE IF ER ROR 

sERROR # DEFINED BY PUT SUBROUTINE 

:G0 TO 260$ IF ERROR 


ere TO — oe: READ STATUS 
1MOU WAIT 


FOR COMMAND TO COMPLETE 
+60 READ REGISTER(S) WITH GET SUBROUTINE 
0 10 90$ IF NO ER -% 


:RETURN HERE IF ERRO 
sERROR # DEFINED 2 veel SUBROUTINE 
360 TO 260$ IF ERRO 


:GO CHECK FOR PRIMARY ERRORS 
:G0 TO 100$ IF NO ERROR 
;RETURN HERE IF ERROR 


SEQ 0092 


a 


ce 


CZR 
iB 


015540 
052622 


015540 
040740 


015540 


000053 
037360 


015540 


037722 
037110 


015540 


040106 


015540 
052622 


015540 
040740 


MNAO RMOS/3/2 FCTNL TST 2 
FORMAT CHECK ONES 
He cs 104000 
015350° 004736 
015352 000137 
670 015356 
671 015356 004737 
015362 000405 
015364 000240 
015366 1040 
015370 ? 
015372 000137 
672 015376 
673 015376 0046737 
015402 405 
015404 240 
015406 104000 
015410 004736 
015412 000137 
674 015416 
675 
676 
or 015416 012737 
679 015424 ott 
015430 000404 
015432 000240 
015434 104000 
015436 000137 
680 015442 
681 
682 
= 015442 004737 
685 015446 004737 
015452 0004 
015454 000240 
015456 104000 
0154 137 
686 015464 
687 
688 
689 015464 004737 
015470 000405 
015472 000240 
015474 104000 
015476 004736 
015500 000137 
690 015504 
691 015504 004737 
015510 00040 
015512 000240 
015514 104 
015516 004736 
015520 000137 
692 015524 
693 015524 004737 
015530 000403 
015532 000240 


¢ 
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001410 


100$: 


1108: 


120$: 


PC, a(SP)+ 
266$ 


PC ,DTASTS 
1168 


PC ,a(SP)+ 


266$ 


PC,SECERR 
120% 


PC,a(SP)+ 


266$ 


SEQ 0093 


sERROR # Pon toe BY ed are SUBROUTINE 
:G0 BACK MORE can R CHECKS 
60 TO 5608. IF ERRO 


G0 VERIFY RESULTS of . TRANSFER 
0 TO 110$ IF NO ERR 


:60 TO 

RETURN HERE IF ER ROR. 

ERROR # Fon on BY ee ee a 
G0 BACK MORE = R CHECK 

60 TO 5608. IF ERROR 


:G0 CHECK FOR =. tanen ERRORS 
:60 TO 1208 IF NO ER 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE _ CHECKS 

360 TO 260$ IF ERRO 


WRITE a HEADER AND DATA FOR SECTOR JUST WRITTEN 


130$: 


WAIT FOR WRITE 
JSR 


1408: 
VERIFY 


150$: 


160$: 


JSR 


#WCH!GO,RMCS10 


PC ,PUT 


130 


2608 


sWRITE CHECK COMMAND 
:GO WRITE Shh ok the WITH PUT SUBROUTINE 
0 TO 130$ IF NO ERROR 


2G 
:RETURN HERE IF NER ROR 
sERROR # DEFINED BY PUT SUBROUTINE 


760 TO 2608 IF ERROR 


a A COMPLETE AND GET STATUS 
PC, TIMOUT 


PC,GET 
146$ 


2608 


156$ 
PC, a(SP)+ 
266$ 
PC ,DTASTS 
166$ 
PC,a(SP)+ 


266$ 


PC SECERR 
1768 


;WAIT FOR READ TO COMPLETE 


360 7? REGISTER(S) WITH GET SUBROUTINE 
:G0_ TO 140$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 


:G0 TO 260$ IF ERROR 


RESULTS OF WRITE CHECK cata ta 
PC,PRIERR 360 


CHECK FOR "oh ta — 
3:60 TO 150$ IF NO ERR 
RETURN HERE IF ERROR 


SERROR # DEFINED BY PRIERR SUBROUTINE 
:G0 BACK FOR MORE ERROR CHECKS 
360 TO 260% IF ERROR 


:G0 VERIFY RESULTS OF DATA TRANSFER 
:G0 TO 160$ IF NO os ROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 


GO BACK FOR eet ERROR CHECKS 
:G0 TO 260$ IF ERROR 


:G0 O pert ye ERRORS 
‘RETURN HERE IF ERROR 


oo 
—— 
SF Aa 


oe 015540 
696 015540 
697 
698 


015540 
015540 
015542 
015544 
015550 
015554 
015560 
699 
700 
701 015566 
702 015574 
703 015602 
704 015610 
705 015616 
706 015624 
707 
708 
015632 
015636 
015640 
015644 
015646 
709 015652 
710 015652 
711 015660 
712 015666 
713 015672 
714 
715 
716 015672 
015676 
015700 
015702 
015704 
015706 
717 015712 
718 
719 
720 015712 
721 015720 
722 015726 


TNL TST 2 
NES 


FC 
HECK 0 


oooo 
—— oe 


ooooc[eoo 


FN 
oow 
—I~ 


25388 
2 


aN CUS 


001100 
001276 


001464 
000012 


000000 


036224 


033352 


016476 


000005 
001551 
000006 


Dd 
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sERROR # DEFINED BY SECERR SUBROUTINE 


EMT 
JSR PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 


170$: 
260$: 
PRCA ARARAREAEAE RHEE AHAATERERRAKERAAHAHeKeeReeeteeeReneteeeeee 
tSTEST 12 FORMAT CHECK ONES W/ WCE ERRORS 
jjreseoneneweocoocoocsososssosscnnnoononsononenessnssssosonecooee 
SCOPE ;SCOPE CALL 
NOP sSTART OF TEST 
MOV @STACK,SP s INITIALIZE eh POINTER 
MOV SBASE ,RO :RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 3(R1) = DEVICE BEING TESTED 
001226 MOV #12, STESTN SET TEST NUMBER IN APT MAIL BOX 
;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
001444 MOV #0,R a4 4 344. NDER = 0 
001416 MOV #0,R TRACK = 9. — 0 
001442 MOV oFATION RROF O 116 BIT F 
001412 MOV #-258. ,RMWCO 22 + 256 BOADS (2°S COMP) 
001414 MOV #BUF ONE , RMBAO ;DATA BUFFER ADDRESS 
001410 MOV aWH, RMCS10 ;WRITE HEADER AND DATA 
; VERIFY THAT SECTOR IS NOT BAD 
JSR PC,BADSCT + CALL BAD SECTOR MODULE 
BR 1 TO 10$ IF NO ERROR 
TYPE ~SCTMSG ‘TYPE BAD SECTOR MESSAGE 
EMT sERROR # DEFINED BY BADSCT SUBROUTINE 
108 JMP 2608 360 TO 260% IF ERROR 
001174 MOV #ONES ,STMPO ;USE ALL ONES DATA PATTERN 
001176 MOV #1, $TMP1 
208 SR PC ,GENBUF 360 GENERATE DATA BUFFER 
;PREPARE DEVICE FOR DATA TRANSFER 
JSR PC, TSTPRP ;PREPARE DEVICE F oe: 
-WORD 154130 ; TASK DESCRIPTOR A OwSs: 
SELECT DEVICE & As y DEVICE AVAILABLE 
TCLEAR CONTROLLER & SELECT DEVICE 
7 VERIFY CONTROLLER CLEAR OPERATION 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
s VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE If MKT" OR ‘'PIP’' IS SET 
7 VERIFY RECALIBRATION 
BR 308% 760 TO 30$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT ERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 260% 760 TO 260$ IF ERROR 
30$: 
; SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
001410 MOV #SEEK'GO,RMCS10 ; CHANGE COMMAND TO SEEK 
MOV @PUTINX, R2 WRITE REGISTER INDEX TABLE 


MOVB #RMDA, (R2)¢ 


SEQ 0094 
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2 
S W/ WCE ERRORS 


MOVB = #RMDC, (R2)¢ 
MOVB #RMOF.(R2)4 
MOVB  #RMCS1,(R2)¢4 
MOVR «#200, (R2) 4 
JSR PC, PUT :60 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 40$ :G0 TO 40$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED By rut SUBROUT INE 
JMP 2608 760 TO 260$ IF ERR 
408: 
;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
JSR PC,GETSTS ;SETUP FOR STATUS 
an 3gR PC. TIMOUT [WAIT FOR SEEK TO COMPLETE 
7GO READ SEEK STATUS 
JSR PC,GET 7GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 60$ [60 TO 60$ IF NO ER ROR 
NOP [RETURN HERE IF ERR 
EMT TERROR # DEFINED BY vce SUBROUT INE 
JMP 2608 760 TO 260$ IF ERROR 
60$: 
:VERIFY THE RESULTS OF THE SEEK COMMAN 
JSR PC, SEKSTS 60 VERIFY RESULTS OF SEEK OPERATION 
BR 70$ :G0 TO 70$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY SEKSTS SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHEC 
JMP 260$ :G0 TO 260$ IF ERROR 
70$: 
;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
001410 MOV #WH'GO,RMCS1O. ;WRITE HEADER AND 
MOV #PUTINK*3,R2 = EXTEND REGISTER. INDEX TABLE 
MOVB #RMWC, (R2)+ 
MOVB #RMBA.(R2)+ 
MOVB #RMCS1,(R2)+ 
MOVB «#200, (R2)+ 
JSR PC, PUT :GO0 WRITE REGISTER(S) guile PUT SUBROUTINE 
BR 808 :60 TO 80$ IF NO 
NOP [RETURN HERE IF ERR 
EMT TERROR # DEFINED BY PUT SUBROUT INE 
JMP 2608 [60 TO 260$ IF ERROR 
80$: 
;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 
JSR PC, TIMOUT WAIT FOR COMMAND TO COMPLETE 
JSR PC GET 760 READ REGISTER(S) WITH GET SUBROUTINE 
BR 908 :60 TO 90$ IF NO ER ROR 
NOP TRETURN HERE IF ERR 
EMT TERROR @ DEFINED BY Oe SUBROUT INE 
JMP 2608 [60 TO 260$ IF ERROR 


NAO RMOS/3/2 FCTNL TST 2 


FORMAT CHECK ONES W/ WCE ERRORS 


128 016126 


60 
761 
762 016126 
016132 
016134 
016136 
016140 
016142 
763 016146 
764 016146 
016152 
016154 
016156 
016160 
016162 
765 016166 
766 016166 
016172 
016174 
016176 
016200 
016202 
767 016206 
768 
769 
770 016206 
77) 
772 
773 016212 
774 
775 016220 
16224 
016226 
0162 
016232 
776 0162 
777 
778 
779 016236 
780 
781 016242 
016246 
016250 
016252 
016254 
782 0162 
783 
784 
785 016260 
016264 
016266 
016270 
016272 
pieg?s 
86 016300 


004737 
5 


005137 


012737 
004737 
000404 


040106 


016476 
052622 


016476 
040740 


016476 
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000053 
037360 


016476 


037722 
037110 


016476 


040106 


016476 
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001410 


90$: 
[VERIFY RESULTS OF WRITE COMMAND 
JSR PC. PRIERR :60 CHECK FOR PRIMARY CRRORS 
BR 106$ :60 TO 100$ IF NO ER ROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PRIERR SUBROUT INE 
JSR PC,a(SP)+ 'GO BACK FOR MORE ERROR CHECKS 
jen MP 266$ 760 TO 2608 IF ERROR 
JSR PC DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 116$ :60 TO 110% IF NO ER ROR 
NOP SRETURN HERE IF ERR 
EMT TERROK # DEFINED BY OOTASTS SUBROUT INE 
JSR PC,a(SP)+ [60 BACK FOR MORE ERROR CHECKS 
oat UMP 2608 760 TO 260$ IF ERRO 
JSR PC, SECERR :60 CHECK FOR SECONDARY ERRORS 
BR 120$ 0 120$ IF NO ERR 
NOP ‘RETURN HERE IF ERROR. 
EMT TERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC ,a(SP)+ 3;G0 BACK FOR MORE ERROR CHECKS 
260$ :G0 TO 260$ IF ERROR 
1208: 
sALTER DATA BUFFER 
COM BUF TWwO-2 :COMPLEMENT DATA WORD 


SETUP AND WRITE CHECK HEADER AND DATA COMMAND 
MOV WUCH'GO,RMCS1O ;WRITE CHECK COMMAND 


JSR PC PUT 


:G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 180$ :G0 10 180$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PUT SUBROUTINE 
JMP 2608 [G0 TO 260$ IF ERROR 


180$: 


WAIT FOR WRITE oe COMMAND TO ep AND READ STATUS 
JSR PC, TIMOUT ;WAIT FOR COMMMAND TO COMPLETE 


SR PC,GET 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 196$ :60 TO 190$ IF NO ER ROR 
NOP :RETURN HERE IF ERR 
EMT TERROR # DEFINED BY (GET SUBROUT INE 
2608 760 TO 260$ IF ERROR 
190$: 
ZCHECK FOR PRIMARY ERRORS 
JSR PC. PRIERR :G0 CHECK FOR PRIMARY ERRORS 
BR 2008 760 TO 200$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC, a(SP)¢ [GO BACK FOR MORE ERROR CHECKS 
Sea MP 2608 760 10 260$ IF ERROR 


SEQ 0096 
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CZR 
112 CHECK ONES W/ WCE ERRORS SEQ 0097 
28 ;MAKE SURE THE WRITE CHECK ERROR WAS DETECTED 

789 016300 032737 040000 001344 BIT #WCE RMCS21 :1$ WRITE CHECK ERROR SET?? 

790 016306 001022 BNE 2108 YES! ! 

792 016310 004737 052622 JSR PC DTASTS 60 VERIFY RESULTS OF DATA TRANSFER 

016314 000405 BR 205$ 760 TO 205$ IF NO ER ROR 

016316 000240 NOP ‘ee rURN HERE IF ERROR 

016320 104000 EMT S ERROR # DEFINED BY DTASTS SUBROUTINE 
016322 004736 JSR PC, a(SP)+ :60 BACK FOR MORE ag RROR CHECKS 
O163e4 000137 016476 MP 266$ 0 TO 260$ | 

793 016330 013737 001344 0011460 205%: Mov RMCS21,$GDDAT ay EXPECTED SrAtUS 

794 016336 052737 040000 001140 BIS #WCE,SGDDAT 

795 016346 013737 001344 001142 MOV RNCSEI, SBDDAT ;LOAD RECEIVED STATUS 

796 016352 104337 EMT 337 

197 016354 2108: 

79S sVERIFY THE ADDRESS OF THE othe CHECK ERROR 

800 016354 012737 102210 001134 MOV #BUF TWO-2,$GDADR LOAD EXPECTED ADDRESS 

801 016362 013737 001340 001136 MOV RMBAI ,SBDADR ;LOAD rece lveD ADDRESS 

3 016370 162737 000002 001136 $uB #2, $BDADR ;DECREMENT RECEIVED ADDRESS 

804 ;GET WCE DATA AND VERIFY IT IS OK 

805 016376 112737 000022 001522 MOVB #RMDB,GETINX ;SETUP FOR READING RMDB 

806 016406 112737 000200 001523 MOVB #200,GETINK+1 

808 016412 004737 037110 JSR PC,GET 3G0 READ REGISTER(S) Bb GET SUBROUTINE 

016416 000404 BR 2308 760 TO 230$ IF NO ERR 

016420 000240 NOP SRETURN HERE IF ERR 

016422 104000 EMT 4 hy + # ie ae nce} SUBROUTINE 
016424 000137 016476 JMP 2608 TO 2608 | 

809 016430 013737 001356 001142 2308: Mov RMDBI,$BDDAT 5 OAD atceiven BATA ‘yoRD 

810 016436 013737 102210 001140 MOV BUF TWO-2, SGDDAT ;LOAD EXPECTED DATA WORD 

811 016444 005137 001140 COM SGDDAT 

812 016450 023737 001134 001136 CMP SGDADR,SBDADR  ;:1S ADDRESS OK?? 

813 016456 001402 BEQ 2208 YES! ! 

814 016460 104340 EMT 340 

815 016462 000405 BR 2608 

816 016464 2208: 

817 016464 023737 001140 001142 CMP SGDDAT,SBDDAT 31S DATA WORD OK?? 

818 016472 001401 BEQ 2608 YES! ! 

819 016474 104341 EMT 341 

820 016476 2608: 

822 s,eeeekeraerererereeeerererereeeeNeaneteneeeneneeneeRenenenetenese 
s*TEST 13 FORMAT MULTIPLE SECTORS 
s,eeeewararaeraeeeeetereerererereeneeeeKneeateneeneeeeeeneneeetenee 

016476 TST13: 

016476 000004 SCOPE :SCOPE CALL 

016500 000240 NOP sSTART OF TEST 

016502 012706 001100 MOV #STACK,SP SINITIALIZE STACK POINTER 
016506 013700 001276 MOV SBASE,RO “RO = UNIBUS ADDRESS 

016512 013701 001464 MOV TSTQUE ,R1 (R1) = DEVICE BEING TESTED 

823 016516 012737 000013 001226 MOV #13, STESTN +: SET TEST NUMBER IN APT MAIL BOX 

824 SETUP PARAMETERS FOR GENERATING DATA BUFFER 

825 016524 012737 010000 001442 MOV MT16,RMOFO =; 16 BIT FORMAT 

826 016532 012737 000000 001444 MOV rh RMDCO “CYLINDER = 0 


C 
T 


Z 
1 


R 
3 
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FORMAT Mu 
827 016540 
828 016546 
829 016554 
830 016562 
831 
832 
016570 
016574 
016576 
016602 
016604 
833 016610 
834 016610 
835 016616 
836 016624 
837 016630 
838 
839 
840 016630 
016634 
016636 
016640 
016642 
016644 
841 016650 
842 
843 
844 016650 
845 016656 
846 016662 
847 016666 
848 016672 
849 016676 
850 016702 
851 
852 016706 
016712 
016714 
016716 
016720 
853 016724 
854 
855 
856 016724 
857 016730 
858 016734 
859 
860 
861 016734 
016740 


mrrnr —- 
te te te end 


004737 
154130 


S25 
3 


ES 


034276 
063120 
017272 


064620 
000001 
036224 


033352 


017272 


go00e? 


000200 
037360 


001174 
001176 


001410 
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sTRACK = = 0 

WORD count fon ta SECTORS (2°S COMP) 
‘DATA BUFFER ADDRESS 

[WRITE HEADER AND DATA 


+ CALL BAD SECTOR MODULE 

:G0 TO 10$ IF NO ERROR 

:TYPE BAD SECTOR MESSAGE 

ERROR # DEFINED BY BADSCT SUBROUTINE 


760 TO 1708 IF ERROR 
sUSE ALL ZEROS DATA PATTERN 
:GO GENERATE DATA BUFFER 


:PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 


:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER @ SELECT 

VERIFY CONTROLLER CLEAR OPERATION 

sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 

sRECALIBRATE IF ‘’SKI"’ OR ‘'PIP’’ IS SET 


DEVICE 


; VERIFY _RECALIBRATION 
360 TO 30$ IF NO ERROR 
:RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 


:G0 TO 180$ IF ERROR 


SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
WSEEK!GO,RMCS10 ;CHANGE COMMAND TO SEEK 


MOV #0, RMDAO 
MOV #-258. ~ j RMwW 
MOV #BUF ONE, frend 
MOV #WH,RMCS10 
;VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT 
BR 0 
TYPE  ,SCTMSG 
EMT 
JMP 170% 
108: 
MOV HEROS. $TMPO 
MOV #1, $TMP1 
JSR PC, GENBUF 
208: 
:PREPARE DEVICE FOR DATA, TRANSFER 
JSR PC,TSTP 
“WORD 154 130." 
BR 30$ 
NOP 
EMT 
JMP 180$ 
30$: 
MOV 
MOV #PUTINX,R2 
MOVB = #RMDA, (R2)¢ 
MOVB #RMDC.(R2)¢ 
MOVB  &#RMOF.(R2)+ 
MOVB  #RMCS1,(R2)¢ 
MOVB #200,(R2)+ 
JSR PC PUT 
BR 40$ 
NOP 
EMT 
JMP 180$ 


40$: 


; SETUP ee STATUS AND 
J 


50$: 


JSR 


PC,GETSTS 
PC, TIMOUT 


G0 READ SEEK STATUS 
JSR PC GET 


60% 


TERROR aD 


WRITE REGISTER INDEX TABLE 


TER(S) WITH PUT SUBROUTINE 
£60 TO “a os ROR 


emnD DD 


RROR 
D BY PUT SUBROUTINE 
ERROR 


THEN WAIT FOR SEEK TO COMPLETE 


;SETUP FOR STATUS 
:WAIT FOR SEEK TO COMPLETE 


G0 READ ei ie gt — GET SUBROUTINE 
G0 10 60% IF NO ERR 


SEQ 0098 
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CZR 
113 MAT MULTIPLE SECTORS SEQ 0099 

016742 000240 NOP :RETURN HERE — IF ERRO 
016744 104000 EMT TERR EF INED BY OG SUBROUT INE 
016746 000137 017272 JMP 180$ 60 "0 1808 IF ERR 

862 016752 60S: 

864 ;VERIFY THE RESULTS OF THE SEEK COMMAND 

865 016752 004737 045224 JSR PC, SEKSTS 3G0 VERIFY RESULTS OF SEEK OPERATION 
016756 000405 BR 70$ 760 TO 70$ IF NO ERROR 
016760 000240 NOP ZRETURN HERE IF ERROR 
016762 104000 EMT ZERROR # DEFINED BY SEKSTS SUBROUT INE 
016764 004736 JSR PC,a(SP)¢ 3;GO BACK FOR ook — CHECK 
016766 000137 017272 MP 186$ 760 TO 180$ IF E 

866 016772 708: 

868 ;SETUP AND EXECUTE WRITE AREADER AND DATA COMMAND 

869 016772 012737 000063 001410 MOV MWH'GO,RMCS1O ;WRITE HEADER AND DATA 

870 017000 012702 001554 MOV SPUT ING? S RD” ZEXTEND REGISTER INDEX TABLE 

871 017004 112722 000002 MOVB = #RMWC, (R234 

872 017010 112722 000004 MOVB #RMBA.(R2)+ 

873 017014 112722 000000 MOVB  #RMCS1,(R2)4 

74 017020 112722 000200 MOVB #200,(R2)+ 

876 017024 004737 037360 JSR PC,PUT or WRITE "i ue cas WITH PUT SUBROUTINE 
017030 000404 BR 80$ 0 TO 80$ | RROR 
017032 000240 NOP RETURN WERE IF a R 
017034 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
017036 000137 017272 JMP 180$ 760 TO 180$ IF ERROR 

877 017042 80$: 

879 ;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 

aot 017042 0064737 037722 JSR PC,TIMOUT ;WAIT FOR COMMAND TO COMPLETE 

882 017046 004737 037110 JSR PC ,GET 3;G0 READ . it ok the WITH GET SUBROUTINE 
01705? 000404 BR 90$ 760 TO 90$ IF N OER ROR 
017054 000240 NOP SRETURN HERE IF ERR 
017056 104000 EMT SERROR # DEFINED BY “GET SUBROUT INE 
017060 000137 017272 JMP 180$ 760 TO 180$ IF ERROR 

885 017064 90$: 

885 sVERIFY RESULTS OF WRITE COMMAND 

886 017 004737 040106 JSR PC,PRIERR 360 ve FOR PRIMARY ERRORS 
017070 000405 BR 106% 760 TO 100$ IF NO ERROR 
017072 000240 NOP SRETURN HERE IF ERROR 
017074 104000 EMT SERROR # DEFINED BY PRIERR SUBROUTINE 
017076 004736 JSR PC,a(SP)+ 360 BACK FOR MORE ERROR CHECKS 
017100 000137 017272 JMP 186$ :G0 TO 180$ IF ERROR 

887 017104 100$: 

888 017106 004737 052622 JSR PC DTASTS 7G0 VERIFY RESULTS OF DATA TRANSFER 
017110 000405 BR 116$ :G60 TO 1108 IF NO ER ROR 
017112 000240 NOP SRETURN HERE IF ERR 
017114 104000 EMT TERROR # DEFINED BY OS rasTS SUBROUT INE 
017116 004736 JSR PC,a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
017120 000137 017272 JMP 186$ :G0 TO 180$ IF ERROR 

889 0171246 1108: 

890 017124 004737 040740 JSR PC, SECERR 7G0 CHECK FOR SECONDARY ERRORS 
017130 000405 BR 1268 760 TO 1208 IF NO ERROR 
017132 000240 NOP sRETURN HERE IF ERROR 
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EMT SERROR # DEFINED BY SECERR SUBROUT INE 
JSR PC a(SP)+ 760 BACK FOR MORE ERRO CHECKS 
MP 186$ :60 TO 180$ IF ERRO 

1208: 

SWRITE CHECK HEADER AND DATA FOR SECTORS UST WRITTEN 

091410 MOV #WCH'GO,RMCS1O ;WRITE CHECK COMMAND 

JSR PC, PUT :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 136s 760 TO 130$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT [ERROR # DEF INED ey PUT SUBROUTINE 
JMP 1808 [G0 TO 180$ IF ERROR 

130$: 

:WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS 
JSR PC, TIMOUT ;WAIT FOR WRITE CHECK TO FINISH 
JSR. —s- PC GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
BR 1468 :G0 TO 140$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY GET SUBROUTINE 
JMP 1808 :60 TO 180$ IF ERROR 

1408: 

:VERIFY THE RESULTS OF WRITE CHECK SOPERATION 
JSR PC .PRIERR CHECK FOR PRIMARY ERRORS 
BR 156$ 80 TO 150$ IF NO ER ROR 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)¢ 760 BACK FOR MORE ERROR CHECKS 

aan JMP 180$ :GO0 TO 180$ IF ERROR 
JSR PC ,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 160$ :G60 TO 160$ IF NO ER ROR 
NOP [RETURN HERE IF ME RKOR 
EMT [ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ 760 BACK FOR MORE a RROR CHECKS 

ad IMP 180$ 7GO TO 180$ IF E 
JSR PC, SECERR :G0 CHECK FOR SECONDARY ERRORS 
BR 170$ :60 TO 170$ IF NO ERR 
NOP ' TRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC, a(SP)+ [G0 BACK FOR MORE ERROR CHECKS 
JMP 186$ 760 TO 180$ IF ERROR 

170$: 

180$: 

SL eeeeeerererarcerrerrerererrereaaeeseaneeeteneteneeReteenerenese 

TeTEST 14 FORMAT w/ HEAD SWITCHING 

eet aces ee ee eee ee 
SCOPE SCOPE CALL 
NOP [START OF TEST 
MOV #STACK,SP TINITIALIZE STACK POINTER 


SEQ 0100 


| i“ « 
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1 W/ HEAD SWITCHING SEQ 0101 
017302 013700 001276 MOV SBASE,RO :RO = UNIBUS ADDRESS 
Ore ae 013701 001464 MOV TSTQUE R1 ;(R1) = DEVICE BEING TESTED 
7 017312 012737 000014 001226 MOV #14,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
917 ;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
918 017320 012737 000000 001444 MOV #0,RMDCO ZCYLINDER = 0 
919 017326 112737 000000 001417 MOVB #0.RMDAO+1 STRACK = 0 
920 017334 112737 000037 001416 S$: MOVB #31.,RMDAO [SECTOR = 31. 
921 017342 012737 010000 O0144g MOV #FEMTIO,RMOFO :16 BIT FORMAT 
922 017350 012737 176774 00141 MOV #-258.*2,RMWCO SWORD COUNT FOR ‘ _— (2°S COMP) 
923 017356 012737 1206 001414 MOV a ore RMBAO ;DATA BUFFER ADDRE 
924 017364 012737 000062 001410 MOV #WH,RMCS10 [WRITE HEADER AND BATA 
926 ;VERIFY THAT SECTOR IS NOT BAD 
017372 004737 034276 JSR PC,BADSCT #CALL *~ SECTOR prose 
017376 000405 BR 10$ TO 10$ IF NO ERR 
017407 104401 063120 TYPE  ,SCTMSG “TYPE BAD SECTOR ESSA GE 
017404 104000 EMT S ERROR # DEFINED BY A cmos SUBROUT INE 
017406 000137 020104 JMP 1808 [60 TO 180$ IF ERROR 
927 017412 108: 
928 017412 123727 001416 000037 CMPB RMDAO, #31. aes LAST SECTOR ASSIGNED ? 
929 017420 001345 BNE $ FN 
930 017422 012737 064620 001174 MOV #ZEROS,STMPO ose ALL ZEROS DATA PATTERN 
931 017430 012737 000001 001176 MOV #1, STMP1 
434 017436 004737 036224 JSR PC, GENBUF 3GO GENERATE DATA BUFFER 
934 ;PREPARE DEVICE FOR i TRANSFER 
935 017442 004737 033352 JSR PC, TSTPRP :PREPA RE DEVICE FOR TEST 
017446 154130 ~ WORD 154130 K DESCRIPTOR AS FOLLOWS: 
estrecy DEVICE &@ VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER @ SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
*PACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 
[RECALIBRATE IF ''SKI'’ OR PIP’ IS SET 
;VERIFY RECALIBRATION 
017450 000404 BR 30$ 760 TO 30$ IF 
017452 000240 NOP sRETURN HERE IF ERROR 
017454 104000 EMT sERROR # DEFINED a TSTPRP SUBROUTINE 
017456 000137 020104 JMP 180$ [G0 TO 180$ IF ERROR 
936 017462 30$: 
938 ;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
939 017462 012737 000005 001410 MOV #SEEK'GO,RMCS10 ;CHANGE COMMAND TO SEEK 
940 017470 012702 001551 MOV #PUTINX,R2 S WRITE REGISTER INDEX TABLE 
941 017474 112722 000006 MOVB @RADA, (R2)+ 
942 017500 112722 MOvVB #RMDC, (R2)+ 
943 017504 112722 000032 MOVB  #RMOF.(R2)+ 
944 017510 112722 000000 MOVB  #RMCS1,(R2)4 
945 017514 112722 000200 MOVB #200,(R2)¢4 
947 017520 004737 037360 JSR PC ,PuT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
017524 000404 BR 408 [GO TO 40$ IF NO ERROR 
017526 000240 NOP SRETURN HERE IF ERROR 
017530 104000 EMT ote # DEFINED oY A, SUBROUT INE 
017532 000137 020104 JMP 180% 0 TO 180$ IF ERRO 
948 017536 408: 


CZR 
T14 
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017704 
017706 
017710 
017712 

982 017716 

983 017716 


004737 
004737 


004737 
000137 


004737 


00 
000137 


004737 
004737 


000137 


004737 
000405 


037110 


020104 


045224 


020104 


aoeree 


000200 
037360 


020104 


037722 
037110 


020104 


040106 


020104 
052622 
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001410 


SETUP FOR READING STATUS AND THEN WAIT FOR seek TO COMPLETE 
JSR PC,GETSTS ;SETUP FOR STATU 
JR PC, TIMOUT :WAIT FOR SEEK TO COMPLETE 


508: 
:GO READ SEEK STATUS 
JSR PC,GET ;G0 READ REGISTER(S) WITH GET SUBROUTINE 
BR 60$ -G0 TO 60$ IF NO ERROR 
NOP ‘RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY ce SUBROUTINE 
— JMP 180$ 'GO TO 180$ IF ERROR 


;VERIFY THE RESULTS OF THE SEEK COMMAND 
JSR PC,SEKSTS 


:GO VERIFY RESULTS OF SEEK OPERATION 
BR 70$ :GO TO 70$ IF NO ERR ROR 
NOP SRETURN HERE IF ERRO 
EMT TERROR # DEFINED BY SEKSTS SUBROUT INE 
JSR PC,a(SP)+ =G0 BACK FOR MORE ERROR CHECKS 
JMP 180$ :GO TO 180$ IF ERROR 


70$: 


>SETUP AND a wank HEADER AND DATA COMMAND 
MOV H!GO,RMCS10 ;WRITE HEADER AND DAT 
MOV #PUTIN? 3 R2 EXTEND REGISTER INDEX TABLE 


MOVB #RMBA.(R2)+ 
MOVB  #RMCS1,(R2)+ 
MOVB #200, (R2)¢ 


JSR PC,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 80$ :G60 TO 80$ IF NO ER ROR 
NOP [RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY PUT SUBROUTINE 
JMP 180$ :GO TO 180$ IF ERROR 

80$: 

;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 
JSR PC, TIMOUT sWAIT FOR COMMAND TO COMPLETE 
JSR PC,GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
BR 90$ :GO TO 90$ IF NO ERROR 
NOP ‘RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY GET SUBROUTINE 
JMP 180$ :60 TO 180$ IF ERROR 

90$: 

:VERIFY RESULTS OF WRITE COMMAND 
JSR PC ,PRIERR :60 CHECK FOR PRIMARY ERRORS 
BR 106$ 0 1008 IF N OER ROR 
NOP RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC ,a(SP)+ 'G0 BACK FOR MORE ERROR CHECKS 

he JMP 186$ [G0 TO 180$ IF ERROR 


JSR PC,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 


SEQ 0102 


M 
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R 
4 FORMAT W/ HEAD SWITCHING SEQ 0103 
017722 000405 BR 1108 260 TO 1108 IF NO. ERROR 
017724 000240 NOP ‘RETURN HERE IF ERROR 
017726 104000 EMT ‘ERROR # DEFINED BY DTASTS SUBROUTINE 
017730 004736 JSR PC, a(SP)+ 'G0 BACK FOR MORE ERROR CHECK 
017732 000137 020104 JMP 186$ :60 TO 180$ IF ERROR 
984 017736 1108: 
985 017736 004737 040740 JSR PC, SECERR 60 CHECK FOR SECONDARY ERRORS 
017742 000405 BR 1268 760 TO 120$ IF OER ROR 
017744 000240 NOP ‘RETURN HERE IF NERR OR 
017746 104000 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
017750 004736 JSR PC,a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
017752 000137 020104 JMP 186$ 760 TO 180$ IF ERROR 
986 017756 1208: 
988 ;WRITE CHECK HEADER AND DATA FOR SECTORS JUST WRITTEN 
989 017756 012737 000053 001410 MOV #WCH'GO,RMCS1O0 ;WRITE CHECK COMMAND 
991 017764 004737 037360 JSR PC,PUT 3G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
017770 000404 BR 136$ :60 TO 130$ IF NO ER ROR 
017772 000240 NOP ‘RETURN HERE IF ERR 
017774 104000 EMT sERROR # DEFINED a “Pur SUBROUTINE 
017776 000137 020104 JMP 1808 'GO TO 180$ IF ERRO 
992 020002 130$: 
994 sWAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS 
44 020002 004737 037722 JSR PC, TIMOUT ;WAIT FOR WRITE CHECK TO FINISH 
997 020006 004737 037110 JSR PC,GET :GO READ tr te ta WITH GET SUBROUTINE 
020012 000404 BR 146$ :G0 TO 140$ IF OER ROR 
020014 000240 NOP ‘RETURN HERE IF NERR 
020016 104000 EMT sERROR # DEFINED BY Ofer SUBROUTINE 
020020 000137 020104 JMP 180$ ‘60 TO 180$ IF ERROR 
998 020024 1408: 
1000 ;VERIFY THE RESULTS OF WRITE CHECK OPERATION 
1001 020024 004737 040106 JSR PC,PRIERR 3G0 CHECK FOR PRIMARY ERRORS 
020030 000405 BR 156$ :GO TO 150$ IF NO ERROR 
020032 000240 NOP sRETURN HERE IF ERROR 
020034 104000 EMT sERROR # DEFINED BY PRIERR 1 allan 
020036 004736 JSR PC,a(SP)+ 3GO0 BACK FOR MORE ERROR CHECKS 
020040 000137 020104 JMP 186$ :GO TO 180$ IF ERROR 
1002 020044 1508: 
1003 020044 004737 052622 JSR PC,DTASTS 3:60 + RESULTS OF DATA TRANSFER 
020050 000405 BR 160$ [G60 TO 160$ IF NO ERROR 
020052 000240 NOP RETURN HERE IF ERROR 
020054 104000 EMT sERROR # DEFINED BY DTASTS SUBROUTINE 
020056 004736 JSR PC,a(SP)+ 3GO BACK FOR MORE ERROR CHECKS 
oa 920060 000137 020104 ae JMP 186$ 760 TO 180$ IF ERROR 
1005 02 004737 040740 JSR PC,SECERR :GO CHECK FOR yt! ERRORS 
020070 000405 BR 176$ :GO TO 170$ IF NO ERROR 
020072 000240 NOP ‘RETURN HERE IF NER ROR 
020074 104000 EMT sERROR # DEFINED BY SECERR SUBROUTINE 
020076 004736 JSR PC,a(SP)+ 3GO BACK FOR MORE ERROR CHECKS 
920190 000137 020104 aol JMP 186$ 'GO TO 180$ IF ERROR 
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114 FORMAT W/ HEAD SWITCHING SEQ 0104 
| 1008 020104 1808: 
1010 seeekeeeeeeeeeeeeeeeeeeeeteeeeeeeeeeeeeKteKeKeeKeteeeeeeeeeeeAee 
;#TEST 15 FORMAT W/ MID TRANSFER SEEK 
| SU RRARAARRAEE ERE EERE RAAT RAERAA RARER AHERETERERRAREREAREE 
020104 téT15: 
| 020104 000004 SCOPE : SCOPE CALL 
020106 000240 NOP ‘START OF TEST 
020110 012706 001100 MOV ASTACK,SP SINITIALIZE STACK POINTER 
020114 013700 001276 MOV SBASE RO [RO = UNIBUS ADDRESS 
020120 013701 001464 MOV TSTQUE,R1 :(R1) = DEVICE BEING TESTED 
es 020124 012737 000015 001226 MOV #15,$TESTN +:SET TEST NUMBER IN APT MAIL BOX 
1012 ;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
1013 020132 012737 000000 001444 MOV #0,RMDCO YLINDER = 0 
1014 020140 013737 001332 001416 5$: MOV LSTRK,RMDAO START LAST TRACK AND 
| 1015 020146 112737 000037 001416 MOVB «#31. ,RMDA [LAST SECTOR 
/ 1016 920154 012737 010000 001442 MOV #EMTI6,RMOFO  :16 BIT FORMAT 
1017 020162 012737 176774 001412 MOV #-258.%2,RMWCO :WORD COUNT FOR 2 SECTORS (2°S COMP) 
1018 020170 012737 101206 001414 MOV #BUFONE,RMBAO DATA BUFFER ADDRESS 
1019 020176 012737 000062 001410 MOV #WH,RMCS10 [WRITE HEADER AND DATA 
1021 :VERIFY THAT SECTOR IS NOT BAD 
020204 004737 034276 JSR PC,BADSCT ;CALL BAD SECTOR MODULE 
020210 000405 BR 10$ 760 TO 10$ IF NO ERROR 
020212 104401 063120 TYPE ~SCTMSG ;TYPE BAD SECTOR MESSAGE 
020216 104000 EMT ERROR # DEFINED BY see SUBROUT INE 
020220 000137 020716 JMP 180$ :G0 TO 180$ IF ERROR 
1022 020224 10$: 
1023 020224 123737 001417 001333 CMPB RMDAO+1,LSTRK+1 ;1S LAST TRACK ASSIGNED ? 
1024 020232 001342 BNE 4 ‘BR IF N 
1025 020 012737 064620 001174 MOV MZEROS,$TMPO §:USE ALL ZEROS DATA PATTERN 
1026 020242 012737 000001 001176 MOV #1, $1MP1 
1027 020250 004737 036224 JSR PC ,GENBUF 3GO GENERATE DATA BUFFER 
1028 020254 208: 
1030 sPREPARE DEVICE FOR DATA TRANSFER 
| 1031 020254 004737 033352 JSR PC, TSTPRP {PREPARE DEVICE FOR TEST. 
| 020260 154130 -WORD 154130 [TASK DESCRIPTOR AS FOLLOWS: 
| [SELECT DEVICE & VERIFY DEVICE AVAILABLE 
| [CLEAR CONTROLLER & SELECT DEVICE 
| [VERIFY CONTROLLER CLEAR OPERATION 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
[VERIFY PACK ACKNOWLEDGE 
| TRECALIBRATE IF "SKI OR PIP" IS SET 
[VERIFY RECALIBRATION 
| 020262 000404 BR 30$ :60 TO 30$ IF NO ERROR 
020264 000240 NOP [RETURN HERE IF ERROR 
020266 104000 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
020270 000137 020716 JMP 180% 760 TO 180$ IF ERROR 
1032 020274 308: 
| 1036 ;SETUP PARAMETERS AND EXECUTE SEEK TO GET opeive ON CYLINDER 
| 1035 020274 012737 000005 001410 MOV #SEEK'GO, RACSIO CHANGE COMMAND TO SEEK 
1036 020302 012702 001551 MOV #PUTINX, R2 WRITE REGISTER INDEX TABLE 
1037 020306 112722 000006 MOVB  #RMDA, (R2)+ 
1038 020312 112722 000034 MOVB  #RMDC.(R2)+4 
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| CZRMNAO RMOS/3/2 FCTNL TST 2 
| 115 FORMAT W/ MID TRANSFER SEEK SEQ 0105 
| 
| ~—- 1039 020316 +=112722 000032 MOVB = #RMOF, (R2)4 
/ 1040 $5033 11338 000000 MOVB = #RMCSI, (R24 
| 1041 020326 112722 000200 MOVB #200, (R2)¢4 
1908 020332 004737 037360 JSR PC,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
020336 000404 BR 40$ :60 TO 40$ IF NO. ER ROR 
020340 000240 NOP RETURN HERE IF E 
020342 104000 EMT TERROR # DEFINED BY oPuT SUBROUTINE 
020344 000137 020716 JMP 180% 'GO TO 180$ IF ERROR 
| 1044 020350 408: 
/ 1046 ;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
| 1067 020350 004737 037024 JSR PC,GETSTS sSETUP FOR STATUS . 
| 1048 020354 004737 037722 JSR PC TIMOUT ‘WAIT FOR SEEK TO COMPLETE 
| 1049 020360 50$: 
1051 ;G0 READ SEEK STATUS 
| 1052 020360 004737 037110 JSR PC, GET :G0 READ REGISTER(S) gilt GET SUBROUTINE 
020364 000404 BR 60$ :G0 TO 60$ IF NO ERR 
20366 000240 NOP TRETURN HERE IF ERR 
| 020370 104000 EMT TERROR # DEFINED BY “set SUBROUT INE 
| 020372 000137 020716 JMP 180% 'G0 TO 180$ IF ERROR 
| 1053 020376 608: 
1055 ;VERIFY THE RESULTS OF THE SEEK COMMA 
| —- 1056 020376 004737 045224 JSR PC, SEKSTS :60 VERIFY RESULTS OF SEEK OPERATION 
020402 000405 BR 70$ 0 70$ IF NO ERROR 
020404 000240 NOP RETURN HERE IF ERR 
| 020406 104000 EMT TERROR # DEFINED BY “SEKSTS SUBROUT INE 
020410 004736 JSR PC,a(SP)+ 'GO BACK FOR MORE ERROR CHECKS 
20412 000137 020716 JMP 180$ :GO TO 180$ IF ERROR 
1057 020416 70$: 
1059 :SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
1060 020416 012737 000063 001410 MOV H'GO,RMCS10 ;WRITE HEADER AND DATA 
1061 020424 012702 001554 MOV SPUT INA? oe R2  S EXTEND REGISTER INDEX TABLE 
1062 020430 112722 000002 MOVB  #RMWC, (R234 
1063 020434 112722 000004 MOVB  #RMBA.(R2)+ 
1064 020440 112722 000000 MOVB RAC I (Re) 
1065 020444 112722 000200 MOVB #200, ( 
1067 020450 004737 037360 JSR PC, PUT 360 WRITE REGISTER(S) TH PUT SUBROUTINE 
020454 000404 BR 80$ :G0 TO 80$ IF NO ERR 
| 020456 000240 NOP =RETURN HERE IF ER ROR 
20460 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
| 020462 000137 020716 JMP 180% :GO TO 180$ IF ERROR 
| 1068 020466 80S: 
' 1070 ;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 
| 1971 020466 004737 037722 JSR PC, TIMOUT [WAIT FOR COMMAND TO COMPLETE 
1973 020472 004737 037110 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
| 020476 000404 BR 908 :G0 TO 90$ IF NO ER ROR 
020500 000240 NOP RETURN HERE IF ERRO 
020502 104000 EMT TERROR # DEFINED at “cel SUBROUT INE 
020504 000137 020716 JMP 180% :GO TO 180$ IF E 


1074 020510 90$: 
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020576 
020602 
020604 
020606 
020610 
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40 
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012737 
004737 
000404 


004737 
004737 
000404 


040106 


020716 
052622 


020716 
040740 


020716 


000053 
037360 


020716 


037722 
037110 


020716 


040106 


020716 
052622 


001410 


;VERIFY RESULTS OF WRITE COMMAND 
R PC,PRIERR 


JS C,P 

BR 1068 

NOP 

EMT 

JSR PC a(SP)+ 

JMP 186$ 
100$: 

JSR PC ,DTASTS 

BR 116$ 

NOP 

EMT 

JSR PC, a(SP)+ 

JMP 180$ 
1108: 

JSR PC, SECERR 

BR 1208 

NOP 

EMT 

JSR PC, a(SP)+ 

JMP 180$ 
120$: 
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+60 orete FOR PRIMARY ERRORS 
;G0 TO 100$ IF NO ERROR 
RETURN HERE IF ERROR 
A hy # DEFINED BY PRIERR SUBROUTINE 
O BACK FOR MORE ERROR CHECKS 
‘€0 TO 180$ IF ERROR 


:G0 0 YO 1108 1F NO ERROR TRANSFER 
RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS ee 
:G0 BACK FOR MORE ERROR CHECK 

760 TO 180$ IF ERROR 


GO CHECK FOR te ERRORS 
:G0 TO 120$ IF NO ERR 

;RETURN HERE IF ER ROR. 

;ERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

G0 TO 180$ IF ERROR 


WRITE = HEADER AND DATA FOR SECTORS JUST WRITTEN 


130$: 


;WAIT FOR WRITE 
JSR 


1408: 
;VERIFY 


150$: 


JSR 
B 


#WCH!GO,RMCS10 


PC PUT 
136$ 


180$ 


PC,GET 
140$ 


180$ 


156$ 


PC ,a(SP)+ 


180$ 


PC ,DTASTS 


166$ 


PC,a(SP)+ 


sWRITE CHECK COMMAND 


350 WRITE REGISTER(S) WITH PUT SUBROUTINE 
360 TO 150$ IF NO ERROR 

:RETURN HERE IF ERROR 

sERROR # DEFINED oY —— SUBROUTINE 


:G0 TO 180$ IF ERRO 


CHECK TO COMPLETE AND GET STATU 
PC, TIMOUT 


WAIT FOR URITE CHECK TO FINISH 


GO READ REGISTER(S) = GET SUBROUTINE 
:G0 TO 140$ IF NO — 
;RETURN HERE IF ERR 


ERROR # DEFINED BY oGeT SUBROUT INE 
G0 TO 180$ IF ERROR 


RESULTS OF WRITE me Brot 
PC,PRIERR 


2, ECK FOR PRIMARY ERRORS 
; O 150$ IF NO ERROR 
‘RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
:G0 BACK FOR ae — CHECKS 
:G0 TO 1808 IF E 


260 yeni RESULTS od Bes TRANSFER 
;60 TO 160$ IF NO ERR 


RETURN HERE IF ERROR 
TERROR # DEFINED BY DTASTS SUBROUTINE 


:GO BACK FOR MORE ERROR CHECKS 


SEQ 0106 
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CZR 
115 FORMAT W/ MID TRANSFER SEEK SEQ 0107 
020672 000137 020716 JMP 1808 :G0 TO 180$ IF ERROR 
1100 020676 160$: 
1101 0 0676 004737 040740 JSR PC, SECERR :60 CHECK FOR SECONDARY ERRORS 
020702 000405 BR 1768 0 1708 | NO. ERR 
020704 000240 NOP RETURN MERE iF ERR 
020706 104000 EMT TERROR # DEFINED BY “SECERR SUBROUT INE 
020710 004736 JSR PC ,a(SP)+ 3G0 BACK FOR ee Ay OR CHECKS 
020712 000137 020716 JMP 186$ :G0 TO 180$ IF E 
1102 020716 1708: 
1103 
1104 020716 1808: 
1106 FE RRA AAA AAA AAA EAE AAE AREA EERE RAE AAERERARERARHEHREEH EERE es 
S*TEST 16 FORMAT W/ IMPLIED SEEK 
RRR AAAER RARER EAE A ERRATA EERE AAA ERAARAAHAREAARKAERAH eee 
020716 TST16: 
020716 000004 SCOPE sSCOPE CALL 
020720 000240 NOP [START OF TEST 
020722 012706 001100 MOV WSTACK,SP s INITIALIZE STACK POINTER 
020726 013700 001276 MOV SBASE RO ;RO = UNIBUS ADDRESS 
020732 013701 001464 MOV TSTQUE,R1 3(R1) = DEVICE BEING TESTED 
er 020736 012737 000016 001226 MOV #16,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
1108 ;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
1109 020744 012737 000000 001444 MOV #0,RMDCO sCYLINDER = 0 
1110 020752 012737 000000 001416 MOV #0,RMDAO sTRACK = 0, SECTOR = 0 
1111 020760 012737 010000 001442 MOV #FMT16,RMOFO 316 BIT FORMAT 
aig 020766 012737 176774 001412 MOV #-258.*2,RMWCO SWORD COUNT FOR . aaa (2°S COMP) 
11135 020774 012737 101206 001414 MOV #BUFONE, RMBAO ‘DATA BUFFER ADDR 
be 021002 012737 0062 001410 MOV #WH, RMCS10 ‘WRITE HEADER - SATA 
1116 ;VERIFY THAT SECTOR IS NOT BAD 
021010 004737 034276 JSR PC,BADSCT ;CALL BAD SECTOR MODULE 
021014 000405 BR 1 60 TO 10$ IF NO ERROR 
021016 104401 063120 TYPE ~SCTMSG ; TYPE BAD SECTOR MESSAGE 
021022 104000 EMT sERROR # DEFINED BY BADSCT SUBROUTINE 
021024 000137 021534 JMP 180$ :60 TO 180$ IF ERROR 
1117 021030 108: 
1118 021030 012737 064620 001174 MOV #ZEROS,STMPO ;USE ALL ZEROS DATA PATTERN 
1119 021036 012737 000001 001176 MOV #1, $TMP1 
1120 021044 004737 036224 JSR PC, GENBUF :GO GENERATE DATA BUFFER 
2 021050 208: 
1122 ;PREPARE DEVICE FOR DATA TRANSFER 
1124 021050 004737 033352 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
021054 154130 WORD 154130 sTASK DESCRIPTOR AS FOLLOWS: 
‘SELECT DEVICE & VERIFY DEVICE AVAILABLE 
[CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE = 
sRECALIBRATE IF athte, OR ‘‘PIP’' IS SET 
:VERIFY RECALIBRATION 
021056 000404 BR 308 760 TO 30$ IF NO ERROR 
021060 000240 NOP [RETURN HERE IF ERR 
021062 104000 EMT sERROR # DEFINED °rSTPRP SUBROUT INE 
021064 000137 021534 JMP 180% ‘GO TO 180$ IF ERRO 
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308: 
;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE OFF CYLINDER 
021536 MOV RMDCO, 190$ SSAVE CYLINDER ADDRESS 
001444 MOV #822. ,RMDCO :SEEK TO LAST CYLINDER 
001410 MOV WSEEK'GO,RMCS10 :CHANGE COMMAND TO SEEK 
MOV #PUTINK,R2 SWRITE REGISTER INDEX TABLE 
MOVB  #RMDA, (R2)+ 
MOVB #RMDC.(R2)¢4 
MOVB  #RMOF.(R2)¢ 
MOVB #RMCS1,(R2)¢4 
MOVB #200, (R2)¢ 
JSR PC, PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 40$ :G0 TO 460$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY PUT SUBROUTINE 
ce JMP 1808 :G0 TO 180$ IF ERROR 


SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
JSR C,GETSTS R STATUS 


PC, SETUP FO 
JSR PC,TIMOUT :WAIT FOR SEEK TO COMPLETE 


50$: 


GO READ SEEK STATUS 
JSR PC GET GO READ your r* we GET SUBROUTINE 


BR 60$ :GO TO 60$ IF NO E 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY GET SUBROUTINE 
JMP 180$ :GO TO 180$ IF ERROR 
60$: 
;VERIFY THE RESULTS OF THE SEEK COMMAND 
JSR PC,SEKSTS 7GO VERIFY RESULTS OF SEEK OPERATION 
BR 70$ 760 TO 70$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY SEKSTS SUBROUTINE 
JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
JMP 180$ [G0 TO 180$ IF ERROR 
70$: 
;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
001444 MOV 190$,RMDCO :RESTORE DISK ADDRESS 
001410 MOV #WH'GO,RMCS1O0 :WRITE HEADER AND DAT 


A 
MOV eet taste EXTEND REGISTER INDEX TABLE 


MOVB  #RMCS1,(R2)4 
MOVB #200,(R2)¢ 


JSR PC, PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 80$ :G0 TO 80$ IF NO ERROR 

NOP "RETURN HERE IF ERROR 

EMT TERROR # DEFINED BY PUT SUBROUTINE 

JMP 180% 760 TO 180$ IF ERROR 


80$: 


SEQ 0108 
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004737 
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037722 
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037360 


021534 


037722 
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021534 


0401046 
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001410 


;WAIT FOR WRITE COMMAND TO optte ~~ READ STATUS 
JSR PC, TIMOUT WAIT 


90$: 


; VERIFY a 8 


100$: 


1108: 


1208: 


PC GET 
90$ 


1808 


OF WRITE COMMAND 
RIERR 


PCP 
1068 
PC, a(SP)+ 
180$ 
PC .DTASTS 
110$ 


PC,a(SP)+ 
1808 


PC, SECERR 


120$ 


PC,a(SP)+ 
180$ 


FOR COMMAND TO COMPLETE 
GO READ REGISTER(S) WITH GET SUBROUTINE 
:60 TO 90$ IF NO oo ~ 


sRETURN HERE IF ERR 
sERROR # DEFINED BY GET SUBROUTINE 
760 TO 180$ IF ERROR 


+60 CHECK FOR "an oma ERRORS 
;G0 TO 100$ IF NO ERROR 

RETURN HERE IF ERROR 

TERROR # DEFINED BY PRIERR SUBROUTINE 

:GO BACK FOR MORE ERROR CHECKS 

G0 TO 180$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
:G0 TO 1108 IF NO ER ~. 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

G0 TO 180$ IF ERROR 


>: as FOR ye ERRORS 
0 120$ IF N Pee “a. 

RETURN HERE IF ERR 

ERROR # DEFINED BY OSECERR SUBROUT I NE 

:G0 BACK FOR MORE ERROR CHECKS 

G0 TO 180$ IF ERROR 


s WRITE — HEADER AND DATA FOR SECTORS JUST WRITTEN 


130$: 


;WAIT FOR WRITE 
JSR 


1408: 


#WCH!GO,RMCS10 


PC ,PUT 


130$ 


180$ 


PC,T 
PC GET 


146$ 


180% 


sWRITE CHECK COMMAND 


:G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
:G0 TO 130$ IF NO ER ~ we 

:RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

:G0 TO 180$ IF ERROR 


gg COMPLETE AND GET STATUS 


sWAIT FOR WRITE CHECK TO FINISH 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:G0 TO 140$ IF NO ER ~ 

RETURN HERE IF ERRO 

sERROR # DEFINED BY ober SUBROUTINE 
:G0 TO 180$ IF ERROR 


VERIFY THE RESULTS of WRITE CHECK OPERATION 
JSR PC, PRIERR 


:GO CHECK FOR PRIMARY ERRORS 
:G0 TO 150$ IF NO ERROR 


SEQ 0109 


T w/ 


_ tet FCTNL TST 2 
FO IMPLIED SEEK 
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SEQ 0110 


0214662 000240 NOP ;RETURN HERE IF ERROR 
021464 104000 EMT S ERROR # DEFINED BY PRIERR — 
021466 004736 JSR PC,a(SP)+ 60 SACK FOR MORE as CHECKS 
021470 000137 021534 mae yMP 186$ 760 TO 180$ IF ERROR 
021474 004737 052622 JSR PC,DTASTS 360 VERIFY RESULTS OF DATA TRANSFER 
021500 000405 BR 160$ 760 TO 160$ IF NO ER ROR 
021502 000240 NOP [RETURN HERE IF ERROR 
021504 104000 EMT sERROR # DEFINED BY DTASTS SUBROUTINE 
021506 004736 JSR PC,a(SP)+ 3;G0 BACK FOR MORE ERROR CHECKS 
921510 000137 021534 nl JMP 186$ 760 TO 180$ IF ERROR 
021514 004737 040740 JSR PC,SECERR 360 ad FOR "7S tanae ERRORS 
021520 000405 BR 1768 :GO0 TO 170$ IF NO ERROR 
021522 000240 NOP S RETURN HERE IF MORROR 
621524 104000 EMT ERROR # DEFINED BY SECERR SUBROUTINE 
021526 00467 JSR PC,a(SP)¢ 3;GO BACK FOR MORE ERROR CHECKS 
021530 000137 021534 JMP 180$ :GO TO 180$ IF ERROR 
1198 021534 170$: 
1200 021534 000401 180$: BR 2008 
‘soe 021536 000000 190$: ~ WORD 0 ; TEMPORARY STORAGE 
1204 021540 2008: 
1205 
1206 SRR RARER EATER EAA eee Rees 
eTEST 17 FORMAT EACH SECTOR ADDRESS 
PEPER A RARE AAA 
021540 iér17: 
021540 004 SCOPE ;SCOPE CALL | 
021542 000240 NOP sSTART OF TEST | 
021544 012706 001100 MOV #STACK,SP s INITIALIZE STACK POINTER | 
021550 013700 001276 MOV SBASE,RO RO = UNIBUS ADDRESS 
021554 013701 001464 MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
it 1560 012737 000017 001226 MOV #17, $TESTN ;SET TEST NUMBER IN APT MAIL BOX | 
1208 ;SETUP PARAMETERS FOR GENERATING ag BUFFER 
1209 021566 012737 000000 001444 MOV #0,RMDCO iC ved NDER = 0 
1210 021574 012737 000000 0601416 MOV #0.RMDAO = 0, SECTOR = 0 
ent 021602 012737 010000 001442 a MOV #FMT16,RMOFO ‘ie BIT FORMAT 
1213 021610 012737 177376 001412 MOV #-258.,RMWCO  :2 + 256 WORDS (2°S COMP) 
1214 021616 012737 101206 001414 MOV #BUF ONE , RMBAO ;DATA BUFFER ADDRESS 
ste 021624 012737 000062 9001410 MOV #UH, RMCS10 ;WRITE HEADER AND DATA 
1217 ;VERIFY THAT SECTOR IS NOT BAD 
021632 004737 034276 JSR PC,BADSCT : CALL BAD SECTOR MODULE 
021636 000405 BR TO 10$ IF NO ERROR 
021640 104401 063120 TYPE ~SCTMSG * TYPE BAD SECTOR MESSAGE 
021644 104000 EMT TERROR # DEFINED BY BADSCT SUBROUTINE 
021646 000137 022302 JMP 1908 :G0 TO 190$ IF ERROR 
1218 021652 108: 
1219 021652 012737 001416 001174 MOV #RMDAO,STMPO ;USE SECTOR FOR DATA PATTERN 
1220 021660 012737 000001 001176 MOV #1, $TMP1 
1221 021666 004737 036224 JSR PC ,GENBUF 3GO GENERATE DATA BUFFER 
1222 021672 20$: 


CZR 
117 


MNAO RMOS/3/2 FCTNL TST 2 
FORMAT EACH SECTOR ADDRESS 


oo 


21672 
21676 


WWW Nr 
Wn —-O 0One 
ooooo°oco 


tt at ts ws a ss a 
rrr 
—~ 


MoM nefnenofonoefrenofonefefer 


w 
~ 
o oo 


43 
44 022002 
6 


022052 


004737 
154130 


000404 


et et ot ot ot OOD 
ss ss 
 rorrrrrrrr 


S 


000240 


033352 


022302 


eoreey 


000200 
037360 


022302 


037024 
037722 


037110 


022302 


040106 


022302 
052622 
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SEQ 0111 


;PREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS 4 LOWS: 

Y DEVICE AVAILABLE 
DEVICE 


;VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF SKI OR PIP’ IS SET 


IF ERROR 
ERROR # DEFINED er. TSTPRP SUBROUTINE 
760 TO 190$ IF ERRO 


AND DATA COMMAND 
;WRITE HEADER AND DATA 
sWRITE REGISTER INDEX TABLE 


:60 WRITE REGISTER(S) WITH PUT SUBROUTINE 
0 TO 80$ IF NO ERROR 

TRETURN HERE IF ERROR 

sERROR # DEFINED BY PUT SUBROUTINE 

:G0 TO 190$ IF ERROR 


WAIT FOR COMMAND TO COMPLETE 
:60 READ REGISTER(S) WITH GET SUBROUTINE 
O ERROR 


; ERROR 
ERROR # DEFINED BY GET SUBROUTINE 
3:60 TO 190$ IF ERROR 


7GO0 CHECK FOR PRIMARY ERRORS 
:G0 TO 100$ IF NO —— 


; IF ERROR 

;ERROR # DEFINED BY A SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 

:G0 TO 190$ IF ERROR 


3G0 VERIFY RESULTS - — TRANSFER 


:PREPARE DEVICE FOR DATA TRANSFER 

JSR PC, TSTPRP 
.WORD 154130 
BR 308 
NOP 
EMT 
JMP 190$ 

30$: 

:SETUP AND EXECUTE (RITE HEADER 

001410 MOV H'GO,RMCS10 

MOV sPUTINK. R2 
MOVB = #RMDA, (R2)+ 
MOVB  #RMDC.(R2)+4 
MOVB = #RMOF .(R2)+ 
MOVB #RMWC.(R2)+ 
MOVB  #RMBA.(R2)+ 
MOVB  #RMCS1,(R2)+ 
MOVB #200,(R2)¢4 
JSR PC, PUT 
BR 80$ 
NOP 
EMT 
JMP 190$ 

80$: 

:SETUP INPUT REGISTER BUFFER FOR READING STATUS 
JSR PC,GETSTS 
JSR PC. TIMOUT 
JSR PC,GET 
BR 908 
NOP 
EMT 
JMP 1908 

90$: 

;VERIFY RESULTS OF WRITE COMMAND 
JSR PC, PRIERR 
BR 100$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 196$ 

1008: 
JSR PC .DTASTS 
BR 116$ 
NOP 


3:60 TO 1108 IF NO ERR 
;RETURN HERE IF ERROR 


to etek af FCTNL TST 2 


MAT 


ola fo flofofojololololo) o 
Rororrorerne fy reoronrr 


-——OC00o 
RSSRNSF 


ssssss oo 
~mMm rTP 
Mronrnrnn = fr 
— 8 2 ss ws — —» 
SVesesrs me 
NmNOoOoroO tw 


Mmrrw 


196000 
004736 
000137 


004736 
000137 


012737 
012737 


004737 
000137 


004737 
004737 


36 
000137 


022302 
040740 


022302 


000073 
102212 


037360 


022302 


037722 
037110 


022302 


040106 


022302 
052622 


022302 
040740 


022302 
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EACH SECTOR ADDRESS 


001410 
001414 


EMT sERROR # DEFINED By ee ee ee 
JSR PC ,a(SP)+ 760 BACK FOR MORE ERRO R CHECKS 
JMP 196$ :60 TO 190$ IF ERRO 


1108: 
JSR PC, SECERR 60 CHECK FOR SECONDARY ERRORS 
BR 1268 760 TO 120$ IF NO ERROR 
NOP Be TURN HERE IF ERROR 
EMT TERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
_ JMP 196$ :G60 TO 190$ IF ERROR 


;READ HEADER AND DATA FOR SECTOR JUST WRITTEN 
MOV #RH!GO,RMCS1 


O  ;READ HEADER & DATA COMMAND 
MOV eBUR Tuo. RMBAO :CHANGE BUS ADDRESS 
JSR PC PUT :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 136$ :G0 TO 130$ IF NO ER ROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED By PUT SUBROUTINE 
JMP 190$ :60 TO 190$ IF ERRO 
130$: 
s;WAIT FOR READ TO mt a AND GET STATUS 
JSR PC,TIMOUT ;WAIT FOR READ TO COMPLETE 
JSR PC,GET 60 READ REGISTER(S) WITH GET SUBROUTINE 
BR 1468 :60 10 140$ IF N OER ROR 
NOP ‘RETURN HERE IF NERRO 
EMT TERROR # DEFINED BY GET SUBROUT INE 
14608 JMP 190$ :G0 TO 190$ IF ERROR 


VERIFY THE RESULTS OF READ vier: 
JSR PC,PRIERR 


60 CHECK FOR PRIMARY of RRORS 
BR 156 0 TO 1508 IF NO ERRO 
NOP RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
aes MP 196$ :G0 TO 190$ IF ERROR 
JSR PC .DTASTS 7GO VERIFY RESULTS OF DATA TRANSFER 
BR 160$ :GO TO 160$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC, a(SP)+ *GO BACK FOR MORE ERROR CPECKS 
ce JMP 190$ :GO TO 190$ IF ERROR 
JSR PC, SECERR 7G0 CHECK FOR SECONDARY ERRORS 
BR 176$ :G0 TO 170$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY SECERR SUBROUT INE 
JSR PC ,a(SP)+ 3GO BACK FOR MORE ERROR CHECK 
coe JMP 196$ :G0 TO 190$ IF ERROR 


;VERIFY DATA 


SEQ 0112 


CZR 
117 


MNAO rom FCTNL TST 2 


MAT 
1279 


os a i 4 
SSVSSSSESE 
oooooo 


ee 
Wrenn feronroenorefter 
OnNOU EW 


tt i st ws ee 
w 


022434 
022440 
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EACH SECTOR ADDRESS 


004737 
101206 


012737 
012737 
004737 


036462 


022302 


001416 
000037 


021610 


001100 
000020 


000000 
000000 
010000 
177376 
101206 
000062 
034276 
063120 
023044 
001416 


000001 
036224 


033352 


SEQ 0113 


JSR PC, CMPBUF 3G0 COMPARE WRITE, READ DATA BUFFERS 
«WORD BUFONE ;STARTING ADDRESS OF WRITE BUFFER 
«WORD BUFTWO STARTING ADDRESS OF READ BUFFER 
BR 180$ +60 G TO 180$ IF NO —— 
NOP [RETURN HERE IF ERR 
EMT sERROR # DEFINED aH “Creu SUBROUT INE 
JMP 190$ 360 TO 190$ IF ERRO 
jiacnerent ADDRESS AND FORMAT NEXT SECTOR 
INC RMDAO ;ADVANCE SECTOR +s 
001416 CMPB #31.,RMDAO ; DONE /ALL SECTORS?? 
BLO 190$ 
JMP 5$ ‘60 60 NEXT SECTOR 
190$: 
CREAR ARR AAERAEEE ETE R ET AEE EE eRKeKeKkketeteneeeteeeeeeeeeneeeee 
;*TEST 20 FORMAT EACH TRACK ADDRESS 
,eeeeeereeeeeeeeeereeeeeeererereKekeekeekeeteneekeeeneeeeeereeee 
1120: 
SCOPE ;SCOPE CALL 
NOP sSTART OF TEST 
MOV ASTACK,SP s INITIALIZE STACK POINTER 
MOV SBASE,R ;RO = UNIBUS ADDRESS 
MOV TSTQUE ,Ri 3(R1) = DEVICE BEING TESTED 
001226 MOV #20,$TESTN 3;;SET TEST NUMBER IN APT MAIL BOX 
;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
001444 MOV #0,RMDCO sCYLINDER = 0 
001416 MOV #0,RMDAO ;TRACK = 0, SECTOR = 0 
001442 $$ MOV #FMT16,RMOFO 316 BIT FORMAT 
001412 MOV #-258. ,RMWCO 32 + 256 WORDS (2°S COMP) 
001414 MOV #BUFONE , RMBAO ;DATA BUFFER ADDRESS 
001410 MOV #WH,RMCS10 ‘WRITE HEADER AND DATA 
:VERIFY THAT SECTOR IS NOT BAD 
JSR PC,BADSCT sem ~ SECTOR MODULE 
R 1 TO 10$ IF NO ary r 
TYPE »SCTMSG OTP BAD SECTOR MESSAGE 
EMT “ERROR # DEFINED a se SUBRO'!T INE 
108 JMP 190$ 760 TO 190$ IF ERRO 
001174 MOV #RMDAO ,STMPO ;USE TRACK FOR DATA PATTERN 
001176 MOV #1,STMP1 
208 JSR PC ,,GENBUF 3GO0 GENERATE DATA BUFFER 
;PREPARE DEVICE FOR DATA TRANSFER 
JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
WORD 154130 > TASK DESCRIPTOR AS FOLLOWS 
sSELECT DEVICE & VERIFY DEVICE AVAILABLE 
LEAR CONTROLLER & SELECT DEVICE 
s VERIFY CONTROLLER CLEAR OPERATION 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
[VERIFY PACK A NOWLEDGE 


ACK 
SRECALIBRATE IF "SKI" 


OR *‘PIP’’ IS SET 
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EACH TRACK ADDRESS SEG 0114 
VERIFY RECALIBRAT ION 

022442 000404 BR 308 760 TO 30$ IF NO ER RROR 
022444 000240 NOP SRETURN HERE IF ERR 
022446 104000 EMT TER ROR # DEFINED By TSTPRP SUBROUTINE 
022450 000137 023044 JMP 190$ ‘60 TO 190$ IF ERROR 

1309 022454 308: 

1311 ;SETUP AND wang’ the HEADER AND DATA COMMAND 

1312 022454 012737 000063 001410 MOV H'GO,RMCS10  ;WRITE HEADER AND DATA 

1313 022462 012702 001551 MOV aPUTINA RO sWRITE REGISTER INDEX TABLE 

1314 0224666 112722 000006 MOVB  #RMDA, (R2)+ 

1315 022472 112722 000034 MOVB  #RMDC.(R2)4 

1316 0224676 112722 000032 MOVB  #RMOF,(R2)+ 

1317 022502 112722 000002 MOVB #RMWC.(R2)¢+ 

1318 022506 112722 000004 MOVB  #RMBA.(R2)+ 

1319 022512 112722 000000 MOVB #RMCS1,(R2)+ 

1320 022516 112722 000200 MOVB #200, (R2)¢ 

1322 022522 004737 037360 JSR PC,PuT 360 WRITE eget WITH PUT SUBROUTINE 
022526 000404 BR 808 360 TO 80$ IF N ye ~¥ 
022530 000240 NOP * RETURN HERE IF ERR 
022532 104000 EMT TERROR # DEFINED BY > SUBROUT INE 
022536 000137 023044 JMP 190$ :G0 TO 190$ IF ERROR 

1323 022540 80$: 

1325 ;SETUP INPUT REGISTER BUFFER FOR READING STATUS 

1326 022540 004737 037024 JSR PC,GETSTS 

4 022544 004737 037722 ser PC,TIMOUT ;WAIT FOR COMMAND TO COMPLETE 

1329 022550 004737 037110 JSR PC,GET 3;GO0 READ REGISTER(S) WITH GET SUBROUTINE 
022554 000404 BR 90$ :60 TO 90$ IF NO ER ROR 
022556 C )0240 NOP RETURN HERE IF ERR 
022560 104000 EMT sERROR # DEFINED 2 vce SUBROUTINE 
022562 000137 023044 JMP 1908 :60 TO 190$ IF ERRO 

1330 022566 908: 

1332 ;VERIFY RESULTS OF WRITE COMMAND 

1333 022566 004737 040106 JSR PC,PRIERR 3G0 CHECK FOR PRIMARY ERRORS 
022572 000405 BR 106$ 760 TO 100$ IF NO ERROR 
022574 000240 NOP [RETURN HERE IF ERROR 
022576 104000 EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
022600 004736 JSR PC,a(SP)+ 3;GO BACK FOR MORE ERROR CHECKS 
022602 000137 023044 JMP 196$ :GO TO 190$ IF ERROR 

1334 022606 100$: 

1335 022606 004737 052622 JSR PC ,DTASTS 3G0 VERIFY RESULTS OF DATA TRANSFER 
022612 000405 BR 116$ 760 TO 110$ IF NO ERROR 
022614 000240 NOP : RETURN HERE IF ERROR 
022616 104000 EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
022620 004736 JSR PC,a(SP)+ 260 BACK FOR MORE _ CHECKS 
022622 000137 023044 JMP 196$ 760 TO 190$ IF ERRO 

1336 022626 1108: 

1337 022626 004737 040740 JSR PC,SECERR 360 oe FOR ——— ERRORS 
022632 000405 BR 126$ :GO TO 120$ IF NO ERROR 
022634 000240 NOP [RETURN HERE IF ERROR 
022636 104000 EMT ‘ERROR # DEFINED BY SECERR SUBROUTINE 
022640 004736 JSR PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
022642 000137 023044 JMP 196$ 760 TO 190$ IF ERROR 


. oo RMO5/3/2 FCTNL TST 2 


FORMAT EACH TRACK ADDRESS 


Ooooooo oo 
rrrrny = rr 
s 
o 


023024 


000137 


004737 


000137 
004737 


6 
000137 
004737 


000137 


004737 


000137 


000073 001410 
102212 001414 


037360 


023044 


037722 
037110 


023044 


040106 


023044 
052622 


023044 
040740 


023044 


036462 


023044 
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HEADER & DATA COMMAND 
: CHANGE BUS ADDRESS 


360 a Th aa che WITH PUT SUBROUTINE 
:60 TO fake ROR 


1508 IF N 
;RETURN HERE If NERR OR 
sERROR # aS ere A al Bas SUBROUT INE 


WAIT FOR READ TO COMPLETE 


:GO0 READ REGISTER(S) =a GET SUBROUTINE 
:G0 TO 140$ IF NO i 


ERRO 
ERROR # DEFINED zy “ser SUBROUT INE 
:G0 TO 190$ IF ERRO 


:GO CHECK FOR yt ERRORS 


ERROR 
ERROR # DEFINED BY A SUBROUT INE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 190$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
:G0 TO 160$ IF NO - ws 

RETURN HERE IF ERR 

ERROR # DEFINED BY OOTASTS SUBROUT INE 
:G0 BACK FOR MORE ERROR CHECKS 

:G0 TO 190$ IF ERROR 


:G0 = FOR F NO ERROR ERRORS 


‘RETURN HERE IF ERR 

sERROR # DEFINED BY OSECERR SUBROUT I NE 
:GO BACK FOR MORE ERROR CHECKS 

G0 TO 1908 IF ERROR 


:GO COMPARE WRITE, READ DATA eyereas 
STARTING ADDRESS OF WRITE BUFFER 
STARTING ADDRESS OF READ BUFFER 

:G0 TO 180$ IF NO ERROR 

RETURN HERE IF ER? ® 
ERROR # DEFINED B* .MPBUF SUBROUTINE 


1208: 
;READ HEADER AND PATA FOR SECTOR ust WRITTEN 
mov #BUF TWO, RMBAO 
JSR PC, PUT 
BR 136 
NOP 
EMT 
JMP 190$ 760 TO 190$ IF E 
130$: 
:WAIT FOR READ 19 COMPLETE AND GET STATUS 
JSR ;TIMOUT 
JSR PC,GET 
BR 140$ 
NOP 
EMT 
JMP 190$ 
1408: 
ZVERIFY THE RESULTS OF READ OPERATION 
JSR PC,PRIERR 
BR 150$ :60 TO 150$ IF N 
NOP SRETURN HERE IF 
EMT 
JSR PC,a(SP)+ 
JMP 196$ 
1508: 
JSR PC,DTASTS 
BR 160$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 190$ 
160$: 
JSR PC, SECERR 
BR 176$ 760 TO 170$ IF 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 190$ 
170$: 
:VERIFY DATA 
JSR PC, CMPBUF 
.WORD BUFONE 
“WORD  BUFTWO 
BR 180$ 
NOP 
EMT 
JMP 190$ 


G0 TO 1908 IF ERROR 


; INCREMENT ADDRESS AND FORMAT NEXT TRACK 


180$ 


(rr 


MNAO RMOS/3/ 
RMAT 


a ss 
Sey 
N—OOoO~ 


WW 
SIN 


—~ 


ce ce ee ee ed eed ed oe 
WWWIWNWwwe 
OODODNNNNAN 
WN —OOOnNOurw 
QOUWUUUWIUIE Bw 
FOOMOLNWOG 


56 


ad a td a 
WWWaw 

bat ty4 4 
LSSesk iw 


Sssy 


32 023176 
023202 


023204 

023212 
1393 025216 
1394 


1395 
1396 023216 


000137 


012737 
012737 
004737 


004737 
154130 


000404 
0 


000137 


012737 


TST 2 
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ACK ADDRESS 


001417 
001417 


022352 


001100 
000021 
000001 
000000 
010000 
000062 


034276 
063120 
023606 
001444 


000001 
036224 


033352 


023606 


000063 


INCB RMDAO+1 tig # ey COUNT 
001333 CMPB RMDAO+1,LSTRK+1 LAST T 
BHI 190$ YES!! 
JMP 5$ 60 DO NEXT SECTOR 
190$: 
SURE RARE EEE ETEK ARee eee eee ee ee 
S*TEST 21 FORMAT PRIME CYLINDERS 
SERRE EEA RARE EERE TETRA eee 
+é121: 
SCOPE sSCOPE CALL 
NOP START OF TEST 
MOV #STACK,SP : INITIALIZE STACK POINTER 
MOV SBASE, RO RO = UNIBUS ADDRESS 
MOV TSTQUE, R1 ZRT) = DEVICE BEING TESTED 
001226 MOV #21, $TESTN 3;SET TEST NUMBER IN APT MAIL BOX 
;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
001444 MOV #1,RMDCO sCYLINDER = 1 
001416 $$ MOV 70. RMDAO TRACK = 0, SECTOR = 0 
001442 MOV #FMT16,RMOFO 316 BIT FORMAT 
001412 MOV #-258. ,RMWCO 32 + 256 WORDS (2°S COMP) 
001414 MOV #BUFONE , RMBAO ;DATA BUFFER ADDRESS 
001410 MOV #WH,RMCS10 ;WRITE HEADER AND DATA 
;VERIFY THAT SECTOR IS NOT BAD 
JSR PC,BADSCT : CALL BAD SECTOR pete 
RR TO 10$ IF NO ERRO 
TYPE ~SCTMSG “TYPE BAD SECTOR MESS SAGE 
EMT " *ERROR # DEFINED BY BADSCT SUBROUTINE 
108 JMP 190$ 60 TO 190$ IF ERROR 
001174 MOV #RMDCO,STMPO ;USE CYLINDER FOR DATA PATTERN 
001176 MOV #1,STMP1 
JSR PC ,GENBUF :GO GENERATE DATA BUFFER 
20$: 
;PREPARE DEVICE FOR DATA TRANSFER 
JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
-WORD 154130 TASK DESCRIPTOR AS FOLLOWS: 
;SELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
; VERIFY CONTROLLER CLEAR OPERATION 
} ;PACK ACKNOWLEDGE IF VOLUME NCT VALID 
sVERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF MSKI OR ‘‘PIP’’ IS SET 
: VERIFY RECALIBRATION 
BR 30$ 760 TO 30$ IF NO ERROR 
NOP SRETURN HERE IF ER ROR 
EMT sERROR # DEFINED BY“ TSTPRP SUBROUTINE 
JMP 190$ 360 TO 190$ IF ERROR 
30$: 
;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
001410 MOV #WH'GO,RMCS10 ;WRITE HEADER AND DATA 


SEQ 0116 


— RMO5/3/ 


FORMAT 


WAIN 
os 


tt tt 
Cums & 
SFSESEF 

Om aS OO 


SOOOCOOOOOOCoOoOooO 
os 


Mrnoefonoferefroefpofef~efrerer 


ed td ot ot 
PoP et ee ee ed et he 
wono-nep ee ee 
Wwnr—Oo0Oon 

oO 

™~m 

w 

Ww 

oO 

™w 


i 


2 
PR 


te ee 
Srorrrrrrnny 3oO 
SNS NS NS NSS m4 


000137 


004737 


004737 


000137 


004737 


000137 
004737 


000137 





NL TST 2 
LINDERS 


001551 


000200 


037360 


023606 


037024 


037722 


037110 


023606 


040106 


023606 
052622 


023606 
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MOV #PUTINX,R2 ;WRITE REGISTER INDEX TABLE 

MOVB  #RMDA, (R2)+ ’ 

MOVB  #RMDC.(R2)4 

MOVB  #RMOF,(R2)¢ 

MOVB #RMWC,(R2)¢ 

MOVB  #RMBA.(R2)¢4 

MOVB  #RMCS1,(R2)4 / 

MOVB #200, (R2)+4 

JSR PC, PU :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 80$ :60 TO 80$ IF N OER ROR 

NOP ‘RETURN HERE IF ERROR 

EMT TERROR # DEFINED BY rut SUBROUT INE 
JMP 190% [G0 TO 190$ IF ERRO 


80$: 


; SETUP oy REGISTER BUFFER FOR READING STATUS 


PC,GETSTS 


;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 
JSR PC,TIMOUT WAIT FOR 


004737 


012737 000073 
012737 102212 
004737 037360 
000404 
000240 
104000 


040740 


: OMMAND TO COMPLETE 
JSR PC GET 'GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 90$ 760 TO 90$ IF NO ERR ROR 
NOP ‘RETURN HERE IF ERR 
EMT TERROR # DEFINED BY “cer SUBROUT INE 
JMP 190$ [G0 TO 190$ IF ERROR 
90$: 
ZVERIFY RESULTS OF WRITE COMMAND 
JSR PC, PRIERR :60 CHECK FOR PRIMARY gERRORS 
BR 100$ O ERR 
NOP RETURN HERE IF NERROR 
EMT ‘ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ :G0 BACK FOR MORE aGRROR CHECKS 
ee JMP 196$ ‘60 TO 190$ IF ERR 
JSR PC,DTASTS 60 VERIFY RESULTS OF DATA TRANSFER 
BR 110$ 60 O ERROR 
NOP : OE TURN HERE. iF NERROR 
EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ [GO BACK FOR MORE ERROR CHECK 
ce JMP 196$ :G0 TO 190$ IF ERROR 
JSR PC, SECERR :G0 CHECK FOR SECONDARY ERRORS 
BR 120$ 760 TO 120$ IF 0 ERROR 
NOP *RETURN HERE IF NERR OR 
EMT TERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ >G0 BACK FOR MORE ERROR CHECKS 
os JMP 196$ 760 TO 190$ IF ERROR 


READ HEADER AND P oney FOR SECTOR JUST WRITTEN 
MOV H!GO,RMCS10 


MOV #BUR TWO. RMBAO 
JSR 
BR 


;READ HEADER & DATA COMMAND 
:CHANGE BUS ADDRESS 
:G0 WRITE cg ie et A ke PUT SUBROUTINE 


NOP ;RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY PUT SUBROUTINE 


PC PUT 
136$ 760 TO 130$ IF 


/ 


SEQ 0117 


eae 
| 


pnd aH RMO5/3/2 FCTNL TST 2 


FORMAT PRIME CYLINDERS 


023436 
023442 


FESESES 
SSFNsF FSSXNSH 


Netw-tysty~tetw-ty-te~ 3 


npesccees 


1439 0235 
1440 023 $266 
3330 


1447 
1448 023566 
1449 023572 
1450 023600 
1451 023602 
1452 023606 
1453 
1454 


023606 
023606 


000137 


004737 


000137 


004737 


000137 
004737 


000137 


004737 


000004 


023606 
037722 
037110 
023606 


040106 


023606 
052622 


023606 
040740 


023606 


036462 


023606 


001444 
001444 


023106 


8B 10 
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001000 


JMP 1908 +60 TO 190$ IF ERROR 
130$: 
;WAIT FOR READ TO COMPLETE AND GET STATUS 
JSR PC, TIMOUT ;WAIT FOR READ TO COMPLETE 
JSR PC.GET 'GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 146$ :GO TO 140$ IF NO ERROR 
NOP ‘RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY GET SUBROUTINE 
JMP 190$ :G0 TO 190$ IF ERROR 
140$: 
:VERIFY THE RESULTS 9 READ OPERATION 
JSR PC PRIERR :G0 CHECK FOR PRIMARY og RRORS 
BR 156$ ‘60 TO 150$ IF NO ERRO 
NOP *RETURN HERE IF ERR on 
EMT SERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
et JMP 196$ 760 TO 190$ IF ERROR 
JSR PC,DTASTS 60 VERIFY RESULTS OF DATA TRANSFER 
BR 160$ :G0 TO 160$ IF N OER ROR 
NOP RETURN HERE IF NERR 
EMT ;ERROR # DEFINED BY OO TASTS SUBROUT INE 
JSR PC,a(SP)+ "GO BACK FOR MORE ERROR CHECKS 
satel JMP 196$ :60 TO 190$ IF ERROR 
JSR PC, SECERR :60 CHECK FOR SECONDARY ERRORS 
BR 176$ :GO TO 170$ IF NO ERROR 
NOP RETURN HERE IF NER ROR 
EMT TERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ 'GO BACK FOR MORE ERROR CHECKS 
ate JMP 196$ :GO0 TO 190$ IF ERROR 


VERIFY DATA 


:GO COMPARE WRITE, READ DATA BUFFERS 


JSR PC ,CMPBUF 
ONE sSTARTING ADDRESS OF WRITE BUFFER 


WORD BUFTWO i STARTING ‘eat OF READ BUFFER 

BR 180% :60 180$ IF NO ERROR 

NOP RETURN HERE IF ERROR 

EMT ERROR # DEFINED BY CMPBUF SUBROUTINE 
JMP 190$ 760 TO 190$ IF ERROR 


180$: 


: INCREMENT aeene > AND FORMAT et PRIME CYLINDER 
ASL ADVANCE CYLINDER COUNT 
CMP RMOCO, W512. :DONE ALL PRIME CYLINDERS ? 


BGT 
JMP 5% ‘60 60 NEXT CYLINDER 
190$: 
pe ekeeeeeeeeeeteteeeeeeteteteeKeeeeeeeekeneeteteeeeeeeereteeeeee 
{TEST 22 READ HEADER & DATA IN LAST SECTOR 
[scaeeesonnenensconueseatecsensoapremsamnnennenennanneannanitN 


SCOPE :SCOPE CALL 


SEQ 0118 
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D HEADER & DATA IN LAST SECTOR SEQ 0119 
023610 000245 NOP :START OF TEST 
§33019 017706 061100 MOV #STACK,SP INITIALIZE STACK POINTER 
023616 91 $700 001276 MOV SBASE ,RO [RO = UNIBUS ADDRESS 
023622 13eut 001464 MOV TSTQUE,R1 ;(R1) = DEVICE oerine TESTED 
= 023626 012737 000022 001226 MOV #22, $TESTN t;SET TEST NUMBER IN APT MAIL BOX 
1456 ;SETUP PARAMETERS FOR READING Last SECTOR 
1457 023634 012737 001466 001444 MOV #822.,RMDCO LAST CYLINDER 
1458 023642 013737 001332 001416 MOV LSTRK, “RADAG SET LAST TRACK AND 
1459 023650 112737 000036 001416 MOVB #30... RMDAO LAST SECTOR 
1460 023656 012737 010000 001442 MOV #EMTIO,RMOFO 316 BIT FORMAT 
1461 023664 208: 
146¢ 023664 012737 177376 001412 MOV #-258.,RMWCO 32 + 256 WORDS (2°S COMP) 
1463 023672 012737 10221 001414 MOV sour Tub. RMBAO sDATA BUFFER ADDRESS 
ions 023700 012737 00007 001410 MOV #RH'GO, RMCS10 READ HEADER AND DATA 
1466 ;PREPARE DEVICE FOR he 9 mcs 
1467 023706 004737 033352 JSR PC, TSTP ;PREPARE DEVICE FOR TEST 
023712 154130 ~ WORD 1541 130" + TASK DESCRIPTOR AS FOLLOWS: 
;SELECT DEVICE @ VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER @ SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 
sRECALIBRATE IF ‘‘SKI'' OR ‘'PIP’' IS SET 
; VERIFY RECALIBRATION 
023714 000404 BR 30$ 60 TO 30$ IF NO yy 
023716 000240 NOP ;RETURN HERE IF ERR 
023720 104000 EMT sERROR # DEFINED BY Ost8Re SUBROUT INE 
023722 000137 024112 JMP 1908 :G0 TO 190$ IF ERROR 
1468 023726 308: 
1469 023726 012702 001551 MOV #PUTINKX,R2 sWRITE REGISTER INDEX TABLE 
1470 023732 112722 000006 MOVB = #RMDA, (R2)¢ 
1471 023736 112722 000034 MOVB #RMDC.(R2)+ 
1472 023742 112722 000032 MOVB MRMOF ,(R2)+ 
1473 023746 112722 0000 MOVB &#RMBA.(R2)+ 
1474 023752 112722 000002 MOVB #RMWC.(R2)4 
1475 023756 112722 000000 MOVB  #RMCS1,(R2)4 
1476 023762 112722 000200 MOVB #200, (R2)¢ : TERMINATOR 
1477 023766 1208: 
1479 ;READ HEADER AND Poe OF LAST SECTOR 
1480 023766 004737 037360 JSR PC. PUT :G0 WRITE REGISTER(S) owl PUT SUBROUTINE 
023772 000404 BR 13 $65 760 TO 130% IF NO ERR 
023774 000240 NOP sRETURN HERE IF ERRO 
023776 104000 EMT sERROR # DEFINED 2 ul SUBROUTINE 
024000 000137 024112 JMP 1908 :60 TO 190$ IF ERR 
1681 024004 1308: 
3 ;SETUP INPUT REGISTER eyeree FOR READING STATUS 
1484 024006 006737 037024 JSR PC ,GETSTS 
ore 024010 0064737 037722 3gR PC,TIMOUT ;WAIT FOR READ TO COMPLETE 
1487 024014 004737 037110 JSR PC,GET 360 — a ee a GET SUBROUTINE 
024020 000404 BR 146$ 760 TO 140$ IF NO 
024022 000240 NO ‘RETURN HERE IF Rh 


So 
1) 
oa 
So 
Nm 
- 
— 
Leal 
s 
“~ 


sERROR # DEFINED BY *GeT SUBROUTINE 
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CZRRNAO RMOS/3/2 FCTNL TST 2 
T22 READ HEADER & DATA IN LAST SECTOR SEQ 0120 

024026 000137 024112 JMP 1908 :G0 TO 190$ IF ERROR 

Mor ~ fi 4032 1408: 

1490 :VERIFY THE RESULTS oot READ OPERATION 

1491 024032 004737 040106 JSR PC PRIERR O CHECK FOR PRIMARY ofRRORS 
024036 000405 BR 156$ 65 TO 150$ IF NO ERRO 
024040 000240 NOP TRETURN HERE IF ERR on 
024042 104000 EMT TERROR # DEFINED BY PRIERR SUBROUT INE 
024044 004736 JSR PC,a(SP)+ [G0 BACK FOR MORE ERROR CHECKS 
024066 000137 024112 MP 196$ 760 TO 190$ IF ERRO 

149 024052 1508: 

1493 02405 004737 052622 JSR PC DTASTS +> +s A ome OF DATA TRANSFER 
024056 000405 BR 1606$ 0 1608 IF N OER ROR 
024060 000240 NOP sSerURN N HERE IF ERR 
024062 104000 EMT TERROR # DEFINED BY “DIASTS SUBROUT I NE 
024064 004736 JSR PC a(SP)¢ :G0 BACK FOR MORE ERRO CHECKS 
024066 000137 024112 yMP 196$ :G0 TO 190$ IF ERROR 

1494 024072 1608: 

1495 024072 004737 040740 JSR PC, SECERR 60 CHECK FOR SECONDARY ERRORS 
024076 000405 BR 1768 :G0 TO 170$ IF NO ERROR 
024100 000240 NOP [RETURN HERE IF ERROR 
024102 104000 EMT SERROR # DEFINED BY SECERR SUBROUTINE 
024104 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
024106 000137 024112 yMP 196$ :G0 TO 190$ IF ERROR 

1496 024112 1708: 

1497 

1498 024112 1908: 

1499 

1500 SRAM AAAAHHAAAAHAHAEHHeeeeeeeeeReeeeReeheeeeeteneeeeneeeeeateneee 

TeTEST 23 READ HEADER & DATA W/ AOE ERROR 
STR AAAARAARAAAAHAHEEHe eee eee eKeReeKeeeekeheeteeeneRenneeeene 

024112 18123: 
024112 0 SCOPE :SCOPE CALL 
024114 000240 NOP [START OF TEST 
024116 012706 001100 MOV @STACK,SP sINITIALIZE STACK POINTER 
024122 013700 001276 MOV SBASE ,RO ;RO = UNIBUS ADDRESS 
024126 013701 001464 MOV TSTQUE,R1 :(R1) = DEVICE BEING TESTED 

ne 024132 012737 000023 001226 MOV #23, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 

1502 ;SETUP PARAMETERS FOR READING 2 SECTORS STARTING auiTH LAST SECTOR 

1503 024140 013737 001332 001416 MOV LSTRK ,RMDAO >SET LAST T AND 

1504 024146 112737 000036 001416 MOVB #30, RMD AO LAST SECTOR 

1505 0246154 012737 010000 001442 MOV #EMTI6O,RMOFO 216 BIT FORMAT 

1506 024162 208: 

1507 0246162 012737 0014666 001444 MOV #822. ,RMDCO SLAST CYLINDER 

1508 024170 012737 176774 001412 MOV #-258.%2,RMWCO :READ 2 SECTORS 

1509 026176 012737 102212 001414 MOV #BUFTWO,RMBAO :DATA BUFFER ADDRESS 

1310 024206 012737 000073 001410 MOV #RH'GO,RMCS1O  :READ HEADER AND DATA 

1512 ;PREPARE DEVICE FOR DATA TRANSFER 

1513 026212 006737 033352 JSR PC, TSTPRP :PREPARE DEVICE FOR TEST 
024216 154130 “WORD =: 154130 [TASK DESCRIPTOR AS FOLLOWS: 

TSELECT DEVICE & VERIFY DEVICE AVAILABLE 


DEV 
:CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 


CZR 
123 


MNAO RMOS/3/2 FCTNL TST 2 
READ HEADER & DATA W/ AOE ERROR 
024220 000404 
024222 000240 
024224 104000 
peeses 000137 024416 

1514 024232 

1515 024232 HE 4's 001551 

1516 024236 112722 000006 

1517 024242 112722 00003 

1518 02462466 112722 00003 

1519 026252 112722 000002 

1520 024256 112722 00000 

1521 026262 112722 000000 

125¢ 024266 112722 000200 

1526 024272 004737 037360 
024276 4 

24 000240 


024300 

024302 104000 

024304 000137 024416 
024310 


024310 004737 037024 
024314 004737 037722 


024320 004737 037110 
0404 
024416 


35 024336 004737 040106 


024416 
37 024356 004737 052622 
000405 


004736 
024372 000137 024416 
39 024376 004737 040740 


36 
024412 000137 024416 
a 024416 


30$: 


130$: 


308 


1908 
#PUTINK,R2 


MRMCS1,(R2)¢ 
#200,(R2)+ 


PC PUT 
136$ 


1908 
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1°’ OR ‘PIP’ IS SET 


-_— wre 


sWRITE REGISTER INDEX TABLE 


:60 hy RE 
260 TO 130$ 
;RETURN — 

$ 


wm 


oR 
ERROR # D PUT SUBROUTINE 


Y 
260 TO 190 RROR 


sSETUP INPUT REGISTER BUFFER FOR READING STATUS 
JSR PC,GETSTS 


1408: 
VERIFY 


150$: 


160$: 


170$: 


JSR 


PC. TIMOUT 
PC,GET 
146$ 


1908 


PC ,a(SP)+* 


196$ 
PC ,DTASTS 
166$ 
PC, a(SP)+ 
196$ 
PC, SECERR 


1768 


PC ,a(SP)+ 


196$ 


;WAIT FOR READ TO COMPLETE 


ce ~ a oh i? un tana WITH GET SUBROUTINE 


: RROR 
ERROR # DEFINED 7. GET SUBROUTINE 
:G0 TO 190$ IF ERRO 


RESULTS OF READ OPERATION 
PC,PRIERR 


360 os FOR "on tae os 

:60 TO 150$ IF N AL 

RETURN HERE IF ERROR 

+ he # DEFINED BY PRIERR SUBROUTINE 
O BACK FOR MORE — CHECKS 

60 TO 190$ IF ERRO 


:G0 VERIFY eas OF DATA TRANSFER 
:G0 TO 160$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY veers SUBROUT INE 
GO BACK FOR MORE ERROR CHECKS 

360 TO 190% IF ERROR 


:G0 CHECK FOR SECONDARY ERRORS 
6 708 IF A ERROR 
TERROR # DEFINED BY VSECERR.SUBROUT IN 


:GO BACK FOR MORE ERROR 
60 TO 190% IF ERROR 


i WITH PUT SUBROUTINE 


SEQ 0121 


F 10 
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7R 50 
123. READ HEADER & DATA W/ AOE ERROR SEQ 0122 
1542 024616 190$: 
15944 ,eeeeeaeareeeeeeeeeeeeeerereeekeKeneeeeeeneteeeeeeeeatetereneeee 
:*TEST 24 READ INVALID SECTOR ADDRESS 
: ® CARR RBAAARAAAAAAAEEERAAAALALAELAELESEL EEE EEE EEE EEE EERE EE EEE 
Seeete 000004 Ste. SCOPE “SCOPE CA 
: LL 
024420 000240 NOP “START OF TEST 
024422 012706 001100 MOV STACK, SP “INITIALIZE STACK POINTER 
024426 013700 001276 MoV SBASE AO :RO_= UNIBUS ADDRESS 
024432 013701 001464 MoV TSTQUE,R1 :(R1) = DEVICE BEING TESTED 
024436 012737 000024 001226 MoV #24,$TESTN SET TEST NUMBER IN APT MAIL BOX 
1546 024444 012737 000000 001444 Mov #0, RMDCO CYLINDER = 0 
1547 024452 012737 000036 001416 MoV #30. ,RMDAO TRACK = 05 INVALID SECTOR = 30. 
1548 024460 012737 000000 001442 MOV #0, RMOFO 718 BIT F 
1549 024466 012737 101206 001414 mov #WBUF ONE, RMBAO ; CHANGE Bus. ADDR 
1550 024474 012737 177376 001412 MOV #-258.,RMWCO 32 + 256 WORDS (°s COMP) 
1551 024502 012737 000078 001410 MOV PRHIGOLRMCS1O READ HEADER AND DATA 
1352 024510 10S: 
1554 PREPARE DEVICE FOR DATA TRANSFER 
1555 026510 004737 033352 JSR PC, TSTP PREPARE DEVICE FOR TEST 
024514 154130 Myon 184180 TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
TCLEAR CONTROLLER & SELECT DEVICE 
“VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NGT VALID 
“VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF "'SKI'’ OR “PIP IS SET 
VERIFY RECALIBRATION 
024516 000404 BR 208 760 10 208 IF NO ER ROR 
024520 000240 NOP RETURN HERE IF ERRO 
024522 104000 EMT SERROR # BEFIWED BY TSTPRP SUBROUTINE 
024524 000137 024760 IMP «90S 60 TO 90$ IF ERROR 
1556 024530 208: 
1558 SETUP AND EXECUTE READ HEADER AND DATA. COMMAND 
1559 024530 012702 001551 MOV PUTINX,R2 LOAD REGISTER INDEX TABLE 
1560 024534 112722 000006 Ove | ORMDA tho) 
1561 024540 112722 000034 MOVB = #RMDC.(R2)4 
1562 026544 112722 000032 MOVB = #RMOF_(R2)4 
1563 024550 112722 000002 MOVB #RMWCL(R2)4 
1564 024554 112722 000004 MOVB  #RMBA(R2)4 
1565 024560 112722 000000 MOVB  - #RMCS1,(R2)* 
1566 024564 112722 000200 MOVB #200, (R2)* SET TERMINATOR BYTE 
1568 026570 004737 037360 JSR PC PUT :60 WRITE REGISTERS) WITH PUT SUBROUTINE 
024574 000404 BR 30$ 760 TO 308 IF NO_ER ROR 
024576 000240 NOP “RETURN HERE IF ERR 
024600 104000 EMT SERROR # DEFINED BY PUT SUBROUTINE 
024602 000137 024760 IMP «90S 60 10 90$ IF ERROR 
1569 024606 308: 
1571 SETUP INPUT REGISTER BUFFER FOR READING STATUS 
1572 026606 004737 57024 JSR PC,GETSTS 
1573 024612 004737 037722 S8R PC’ TIMOUT :WAIT FOR COMMAND TO COMPLETE 
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READ INVALID SECTOR ADDRESS SEQ 0123 
1574 
1575 024616 004737 037110 JSR PC, GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
024622 000404 BR 40$ 760 TO 460$ IF NO ERR 
024624 000240 NOP SRETURN HERE IF ERRO 
024626 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
024630 000137 024760 JMP 908 760 TO 90$ IF ERROR 
1576 024634 40$: 
1578 :VERIFY RESULTS OF READ COMMAND 
1579 024634 004737 040106 JSR PC .PRIERR :60 CHECK FOR PRIMARY ERRORS 
024640 000405 BR 50$ 0 50$ IF NO ER ROR 
024642 000240 NOP RETURN HERE IF ERROR 
024644 104000 EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
024646 004736 JSR PC,a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
024650 000137 024760 JMP 908 'G0 TO 90$ IF ERROR 
1580 024654 50S: 
1581 024654 004737 052622 JSR PC .DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
024660 000405 BR 60$ :G0 TO 60$ IF NO ERROR 
024662 000240 NOP [RETURN HERE IF ERROR 
024664 104000 EMT [ERROR # DEFINED BY DTASTS SUBROUTINE 
024666 004736 JSR PC,a(SP)+ =G0 BACK FOR MORE ERROR CHECKS 
024670 000137 024760 MP 90$ 760 TO 90$ IF ERROR 
1582 024674 60$: 
1583 024674 006737 040740 JSR PC, SECERR :G0 CHECK FOR SECONDARY ERRORS 
024700 000405 BR 79$ :G0 TO 70$ IF NO ERROR 
024702 000240 NOP [RETURN HERE IF ERROR 
024704 104000 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
024706 004736 JSR PC,a(SP)+ [G60 BACK FOR MORE ERROR CHECK 
024710 000137 024760 MP 90$ 760 TO 90$ IF ERROR 
1584 024714 708: 
1586 : INCREMENT ADDRESS AND READ NEXT SECTOR 
1587 024714 005237 001416 INC RMD AO ADVANCE SECTOR COUNT 
1588 024720 022737 000037 001416 CMP #31. .RMDAO :DONE ALL SECTORS?? 
1389 024726 103012 BHIS 808 
1591 024730 032737 010000 001442 BIT SEMTI6,RMOFO =: TEST 16 BIT MODE YET ? 
1592 024736 001010 BNE 90$ SYES 
1593 024740 012737 000037 001416 MOV #31. ,RMDAO TRACK = 0, INVALID SECTOR = 31. 
1594 024746 012737 010000 001442 MOV #FMTIGO,RMOFO ©: SET 16 BIT ‘MODE IN OFFSET AND 
1395 024754 000137 024510 80$:  JMP 10% [TEST AGAIN 
1597 024760 90S: 
1598 
1599 se eeeerearerrensereesreserereereneneaeteneeeenseneenenereeeeesete 
SeTEST 25 READ INVALID TRACK ADDRESS 
s, eeeeereeerererereerererererereaanateneetaereeeenetentenanenseeee 
024760 1§125: 
024760 000004 SCOPE :SCOPE CALL 
024762 000240 NOP [START OF TEST 
024764 012706 001100 MOV #STACK,SP ZINITIALIZE STACK POINTER 
024770 013700 001276 MOV SBASE RO [RO = UNIBUS ADDRESS 
024774 013701 001464 MOV TSTQUE ,R1 [(R1) = DEVICE BEING TESTED 
ee 25 012737 000025 001226 MOV #25, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
1601 025006 012737 000000 001444 MOV #0,RMDCO SCYLINDER = 0 
1602 025014 013737 001332 001416 MOV LSTRK,RMDAO [LOAD LAST TRACK, SECTOR = 0 
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125 READ INVALID TRACK ADDRESS SEQ 0124 
1603 025022 105237 001417 INCB RMDAO+1 3 ie TO FIRST INVALID TRACK 
1604 0380 6 o43537 010000 001442 MOV #EMT16, RWOFO 716 BIT FORMAT 
1605 025034 012737 177376 001412 MOV 8-258. 2 4 Shee CORDS (2°S COMP) 
1606 025062 012737 101206 001414 MOV sour ont. RAGAO [DATA BUFFER ADDRESS 
1607 025050 012737 000073 001410 MOV #RH'GO,RMCS1O :READ HEADER AND DATA 
1608 025056 10$: 
1610 ;PREPARE DEVICE FOR DATA TRANSFER 
1611 025056 004737 033352 JSR PC,TSTPRP ;PREPARE DEVICE FOR TEST 
025062 154130 ~ WORD 154130 ; TASK DESCRIPTOR AS FOLLOWS: 
TSELECT DEVICE & VERIFY DEVICE AVAILABLE 
[CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
“VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF ''SKI'’ OR "PIP" IS SET 
sVERIFY RECALIBRATION 
025064 000404 BR 208 [G0 TO 20$ IF NO ERROR 
025066 000240 NOP [RETURN HERE IF ERROR 
025070 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
025072 000137 025302 JMP 80% :60 TO 80$ IF ERROR 
lore 025076 208: 
1614 ; SETUP “7 A neat READ HEADER AND DATA COMMAND 
1615 025076 012702 001551 #PUTINKX,R2 ;LOAD REGISTER INDEX TABLE 
1616 025102 112722 000006 move #RMDA, (R2)4 
1617 025106 112722 000034 MOVB  #RMDC.(R2)4 
1618 025112 112722 000032 MOVB  #RMOF.(R2)+ 
1619 025116 112722 000002 MOVB = #RMWC,(R2)4 
1620 025122 112722 000004 MOVB  #RMBA.(R2)+ 
1621 025126 112722 000000 MOVB  #RMCS1,(R2)¢ 
1622 025132 112722 000200 MOVB #200,(R2)¢ :SET TERMINATOR BYTE 
1624 025136 004737 037360 JSR PC ,PuT :G0 WRITE egy: WITH PUT SUBROUTINE 
025142 000404 BR 30$ 360 TO 30$ IF NO ERROR 
025144 000240 NOP sRETURN HERE IF ERROR 
025146 104000 EMT SERROR # DEFINED By PUT SUBROUTINE 
025150 000137 025302 JMP 80% 760 TO 80$ IF ERROR 
1625 025154 308: 
1627 ;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
1628 025154 006737 037024 JSR PC, GETSTS 
+444 025160 004737 037722 JSR PC,TIMOUT ;WAIT FOR COMMAND TO COMPLETE 
1631 025164 006737 037110 JSR PC,GET :G0 READ REGISTER(S) galt GET SUBROUTINE 
025170 000404 BR 408 =60 TO 40$ IF NO ERR 
025172 000240 NOP [RETURN HERE IF ERR 
025174 104000 EMT sERROR # DEFINED BY Ofer SUBROUTINE 
025176 000137 025302 JMP 80% [60 TO 80$ IF ERROR 
1632 025202 40$: 
1634 ;VERIFY RESULTS OF READ COMMAND 
1635 025202 004737 040106 JSR PC, PRIERR :GO CHECK FOR eee A creas: 
025206 000405 BR 50$ :G0 TO 50$ IF NO ERROR 
025210 000240 NOP [RETURN HERE IF ERROR 
025212 104000 EMT TER ROR # DEFINED BY PRIERR SUBROUTINE 
025214 004736 JSR PC,a(SP)¢ 3;G0 BACK FOR MORE ERROR CHECKS 


SESESESES 
BNO U EWN —O 


et et et et ot et 
SOOPOOSOOCS 
MAA AAA 
SONO UNF who 


3 


OOoocoooCooooooo°ooo az 
CESS RNsS 
NOSNwNGe se 


Mmrorerrnrnt 
w 
MO SNMOS hr 


26 


ooooooo ocooooo°oo 


MMPIMIPIRSTY Pe rererorer 
MAMMA WWI 


025410 


zn 


FCTNL TST 2 


000137 


004737 
154130 


000404 
re 

104000 
000137 


025302 
052622 


025302 
040740 


025302 


001417 
001417 


025056 


001100 


000073 


033352 


025620 


50$: 


608: 


70$: 


JMP 


80% 
PC ,DTASTS 
60$ 
PC, a(SP)+ 
80$ 
PC, SECERR 
70$ 


PC,a(SP)+ 
80$ 
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:G0 TO 80$ IF ERROR 

:60 VERIFY RESULTS OF DATA TRANSFER 
;G0 TO 60$ IF NO ie ROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY DTASTS SUBROUTINE 


:G0 BACK FOR MORE ERROR CHECKS 
:G0 TO 80$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
3:60 TO 70$ IF NO = ~y 

;RETURN HERE IF ERR 

ERROR # DEFINED By SECERR SUBROUTINE 
:GO BACK FOR "ne a CHECKS 

760 TO 808 IF E 


: INCREMENT pea ~~F READ NEXT TRACK 
INCB RMDAO+1 


80$: 


CMPB 


BH] 
JMP 


RMDAO+1,#128. 
80$ 


10% 


ADVANCE TRACK COUNT 
on ALL TRACKS?? 


£60 bo NEXT TRACK 


> Tee eeeeraeraneeeeeeeeeeeeeeeeeeKeeKeeaekeeeeeteeeeeeeneeeeeeeeee 


S*TEST 26 


18126: 


10$: 


sPREPARE DEVICE 
JSR 
- WORD 


READ INVALID CYLINDER ADDRESS 


SRA HAAR Hee eee eee KKeKkekeKkeeeeKeeeeeeeeeeeneeeee 


#STACK,SP 
SBASE ,RO 
TSTQUE ,R1 


#26,S$TESIN 
#823. ,RMDCO 
RMDAO 
#FAT16,RMOFO 


#-258., 


RMWC 
#BUF ONE , RMBAO 
#RH!GO,RMCS10 


PC,! 
154130 


20% 


80% 


FOR ontan TRANSFER 
STPRP 


SCOPE CALL 

sSTART OF TEST 

INITIALIZE STACK POINTER 

:RO_ = UNIBUS ADDRESS 

:(R1) = DEVICE BEING TESTED 

3;SET TEST NUMBER IN APT MAIL BOX 


:START AT FIRST INVALID CYLINDER 
:TR SECTOR = 0 


ORMAT 
32 + 256 WORDS (2°S COMP) 
;DATA BUFFER ADDRESS 
;READ HEADER AND DATA 


;PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 

:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 

sRECALIBRATE IF “'SKI*' OR ‘’PIP’’ IS SET 

: VERIFY RECALIBRATION 

:G0 TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
:G0 TO 80% IF ERROR 


—— RMOS/3/2 FCTINL TST 2 


READ INVALID CYLINDER ADDRESS 


661 025414 


ie i de) 
moo 


3 025454 

025460 
025462 
025464 


025466 
1674 025472 


1677 025472 
ro 025476 


St 41 OD 


001551 


000200 
037360 


025620 


037024 
037722 


037110 
025620 


040106 


025620 
052622 


025620 
040740 


025620 


001444 
001444 002000 
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; LOAD REGISTER INDEX TABLE 


SET TERMINATOR BYTE 
GO WRITE gy tA WITH PUT SUBROUTINE 


360 TO 30$ 
;RETURN HERE IF ER 


ROR 
;ERROR # DEFINED BY PUT SUBROUTINE 
:GO0 TO 80$ IF ERROR 


SETUP INPUT REGISTER BUFFER FOR READING STATUS 
JSR ETSTS 


;WAIT FOR COMMAND TO COMPLETF 
+ we ak tee GE SUBROUTINE 


TO 40$ IF N 
‘RETURN HERE IF ERROR 
ERROR # DEFINED BY GET SUBROUTINE 
G0 TO 80$ IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 
:G0 TO 50$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:60 TO 80$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
:G0 TO 60$ IF NO ERROR 

RETURN HERE IF ERROR 

sERROR # DEFINED BY DTASTS ot nae 
:GO BACK FOR a Me CHECKS 

:G0 TO 808 IF E 


G0 CHECK FOR SECONDARY ERRORS 
:G0 TO 70$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY SECERR SUBROUTINE 


:GO BACK FOR MORE ERROR CHECKS 
:G0 TO 80$ IF ERROR 


ADVANCE CYLINDER COUNT 


208: 

: SETUP AND EXECUTE E READ HEADER AND DATA COMMAND 
MOVB oRWOA these 
MOVB #RMDC,(R2)+ 
MOVB  #RMOF,(R2)4 
MOVB #RMWC,(R2)4 
MOVB  #RMBA.(R2)+ 
MOVB  #RMCS1,(R2)¢ 
MOVB #200, (R2)4 
JSR PC,PUT 
BR 30$ 
NOP 
EMT 
JMP 80$ 

30$: 
JSR PC, TIMOUT 
JSR PC,GET 
BR 40$ 
NOP 
EMT 
JMP 80$ 

40$: 

SVERIFY RESULTS OF READ COMMAND 
JSR PC, PRIERR 
BR 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 80$ 

50$: 
JSR PC,DTASTS 
BR 60$ 
NOP 
EMT 
JSR PC, a(SP)+ 
JMP 80$ 

608: 
JSR PC, SECERR 
BR 70$ 
NOP 
EMT 
JSR PC, a(SP)+ 
JMP 808 

70$: 

: INCREMENT T ADDRESS AND READ NEXT CYLINDER 

iw RMDCO, #1024. 
BGE 80% 


:DONE, ALL CYLINDERS?? 


SEQ 0126 


Kk 10 
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READ INVALID CYLINDER ADDRESS SEQ 0127 
1695 0256146 000137 025374 JMP 10% 7G0 DO NEXT SECTOR 
1696 025620 80S: 
1697 
1698 ;, Peeeeereerererereerereterereteneeeeeeeeetenetetetereteneeeetene 
s*TEST 27 FORMAT AT OFFSET 
+; ee eeeeeerereererrrerererereenereeeeeeeneeeeneeeeeeeeeeeceeetete 
025620 1§127: 
025620 000004 SCOPE sSCOPE CALL 
025622 000240 NOP ;START OF TEST 
025624 012706 001100 MOV #STACK,SP SINITIALIZE STACK POINTER 
5630 013700 001276 MOV SBASE ,RO ;RO = UNIBUS ADDRESS 
025634 013701 001464 MOV TSTQUE,R1 ;(R1) = DEVICE BEING TESTED 
“va 025640 012737 000027 001226 MOV #27, $TESIN 7;SET TEST NUMBER IN APT MAIL BOX 
1700 ;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
1701 025646 012737 000000 001444 MOV #0,RMDCO :CYLINDER = 0 
1702 025654 012737 000000 001416 MOV #0,RMDAO eTRACK = 0. me OR = 0 
1703 025662 012737 010000 001442 MOV #FMTI6,RMOFO  :16 BIT FOR 
1704 025670 012737 177376 001412 MOV #-258.,RMWCO = 2 + 256 YORD S$ (2°S COMP) 
1705 025676 012737 101206 001414 MOV #BUF ONE, RMBAO ;DATA BUFFER ADDR ESS 
1706 025706 012737 000063 001410 MOV #WH'GO,RMCS1O  :WRITE HEADER AND DATA 
1708 ; VERIFY THAT SECTOR IS NOT BAD 
025712 0064737 034276 JSR PC,BADSCT +h. BAD SECTOR MODULE 
025716 000405 BR 10$ TO 10$ IF NO ERROR 
025720 104401 063120 TYPE ~SCTMSG oo ype BAD SECTOR MESSAGE 
025724 104000 EMT ERROR @ DEFINED BY BADSCT SUBROUTINE 
025726 000137 026532 JMP 1908 [60 TO 190$ IF ERROR 
1709 025732 108: 
1710 025732 012737 001416 001174 MOV #RMDAO,STMPO =; USE _ SECTOR FOR DATA PATTERN 
1711 025740 012737 000001 001176 MOV #1,$TMP1 
1712 025746 004737 036224 JSR PC ,GENBUF 3GO GENERATE DATA BUFFER 
1713 025752 20S: 
1715 ;PREPARE DEVICE FOR DATA TRANSFER 
1716 025752 004737 033352 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
025756 154130 ~ WORD 154130 s TASK DESCRIPTOR AS FOLLOWS: 
TSELECT DEVICE & VERIFY DEVICE AVAILABLE 
SCLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
[VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF "SKI" OR "'PIP’' IS SET 
SVERIFY RECALIBRATION 
025760 000404 BR 308 :G0 TO 30$ IF NO ERROR 
025762 000240 NOP SRETURN HERE IF ERROR 
025764 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
025766 000137 026532 JMP 1908 760 TO 190$ IF ERROR 
W717 025772 30S: 
1719 ;OFFSET DEVICE FOR WRITE 
1720 025772 012737 000015 001410 MOV HOF FSET co, RMCS10 sCHANGE TO OFFSET COMMAND 
1721 02 012702 001551 MOV #PUTINX,R2 sWRITE PUT INDEX TABLE 
1722 026006 112722 000006 MOVB #RMDA,(R2)4 
1723 026010 112722 000034 MOVB #RMDC.(R2)+ 
1724 026014 112722 000032 MOVB #RMOF.(R2)+ 
1725 026020 112722 000000 MOVB = #RMCS1, (R26 


L 10 
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F SEQ 0128 

1726 026024 112712 000200 MOVB #200, (R2) : TERMINATE TABLE 

1728 02 004737 037360 JSR PC ,PuT 360 OSS “iy os cane WITH PUT SUBROUTINE 
026034 0004 BR 35¢ 760 TO 35$ | NO ER ROR 
02 000240 NOP ;RETURN MERE 1F ERROR 
026060 104000 EMT S ERROR # DEFINED BY PUT SUBROUTINE 
026042 000137 026532 JMP 1908 [60 TO 190$ IF ERROR 

1729 026046 358: 

1731 ;SETUP AND eee aaa F aa AND DATA COMMAND AT OFFSET 

1732 026066 012737 000063 001410 MOV H'GO,RMCS10 ;WRITE HEADER AND DATA COMMAND 

1733 026054 012702 001551 MOV spuiiua. 4 ;WRITE REGISTER INDEX TABLE 

1734 026060 112722 000002 MOVB = #RMWC, (R2)4 

1735 026064 112722 000004 MOVB #RMBA.(R2)+ 

1736 026070 112722 000000 MOVB  #RMCS1,(R2)4 

1737 026074 112722 000200 MOVB #200,(R2)+4 

1739 026100 004737 037360 JSR PC PUT 3;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
026104 000404 BR 80$ :GO TO 80$ IF NO ERROR 
026106 000240 NOP [RETURN HERE IF ERROR 
026110 104000 EMT sERROR # DEFINED BY PUT SUBROUTINE 
026112 000137 026532 JMP 190$ :60 TO 190$ IF ERROR 

1740 026116 80S: 

1742 ;SETUP INPUT REGISTER eres FOR READING STATUS 

1743 026116 004737 037024 JSR PC,GETSTS 

ee Oseizs 004737 037722 ser PC,TIMOUT ;WAIT FOR COMMAND TO COMPLETE 

1746 026126 004737 037110 J$% PC,GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
026132 000404 BR 90$ :G0 TO 90$ IF NO os “. 
026134 000240 NOP TRETURN HERE IF ERR 
026136 104000 EMT sERROR # DEFINED BY Ofer SUBROUTINE 
026140 000137 026532 JMP 190$ :G0 TO 190$ IF ERROR 

1767 026144 90$: 

1749 ;VERIFY RESULTS OF WRITE COMMAND 

1750 026144 004737 040106 JSR PC,PRIERR 3;GO CHECK FOR gig ERRORS 
026150 000405 BR 106$ 760 TO 100$ IF NO ERROR 
026152 000240 NOP ‘RETURN HERE IF NERROR 
026154 104000 EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
026156 004736 JSR PC,a(SP)+ 3;GO BACK FOR MORE ERROR CHECKS 
026160 000137 026532 JMP 196$ [G60 TO 190$ IF ERROR 

1751 026164 100$: 

1752 026164 004737 052622 JSR PC,DTASTS 360 VERIFY RESULTS OF DATA TRANSFER 
026170 000405 BR 110$ :G60 TO 110$ IF NO ER ROR 
026172 000240 NOP [RETURN HERE IF ERROR 
026174 104000 ~ EMT ERROR # DEFINED BY DTASTS SUBROUTINE 
026176 004736 JSR PC,a(SP)+ 3G0 BACK FOR MORE ERROR CHECKS 
026200 000137 026532 JMP 196$ 760 TO 190$ IF ERROR 

1753 026204 110$: 

1754 026204 004737 040740 JSR PC,SECERR 3G0 CHECK FOR SECONDARY ERRORS 
026210 000405 BR 126$ 760 TO 1208 IF NO ER ROR 
026212 000240 NOP TRETURN HERE IF E 
026214 104000 EMT sERROR # DEFINED ~ OPE CERR SUBROUT I NE 
026216 0047256 JSR PC,a(SP)+ +60 BACK FOR MORE — CHECKS 


026220 000137 026532 JMP 196$ :G0 TO 190$ IF ERRO 
1755 0262246 1208: 


M10 
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SEQ 0129 

1756 ZOFFSET DEVICE FOR READ 

1757 026224 012737 000015 001410 MOV #OFFSET!GO,RMCS10 :CHANGE TO OFFSET COMMAND 

1758 026232 012702 001551 MOV #PUTINX,R2 sWRITE PUT INDEX TABLE 

1759 026236 112722 000006 MOVB RMDA, ( 

1760 026242 112722 000034 MOVB #RMDC,(R2)+ 

1761 026246 112722 000032 MOVB = #RMOF,(R2)4 

1762 026252 112722 000000 MOVB  #RMCS1,(R2)+ 

1763 026256 112722 000200 MOVB #200, (R2)¢ 

1765 026262 004737 037360 JSR PC, PUT :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
026266 000404 BR 125$ 760 TO 125$ IF NO ERR 
026270 000240 NOP SRETURN HERE IF ERRO 
026272 104000 EMT TERROR # DEFINED BY Pur SUBROUT INE 
026274 000137 026532 JMP 1908 *60 TO 190$ IF ERR 

1766 026300 125$: 

1768 

1769 ;READ HEADER AND DATA AT OFFSET 

1770 026300 012737 000073 001410 MOV #RH'GO,RMCS10 ;READ HEADER & DATA COMMAND 

1771 026306 012737 102212 001414 MOV #BUFTWO,RMBAO CHANGE BUS ADDRESS 

1772 026314 012702 001551 MOV #PUTINX,R2 [WRITE PUT INDEX TABLE 

1773 026320 112722 000002 MOVB #RMWC,(R2)+ 

1774 026324 112722 000004 MOVB  #RMBA.(R2)+4 

1775 026330 112722 000000 MOVB  #RMCS1,(R2)+ 

177% 026334 112722 000200 MOVB  #200,(R2)+ 

1778 026340 004737 037360 JSR PC,PUT 360 WRITE ee gi . PUT SUBROUTINE 
026344 000404 BR 136$ :GO TO 130$ IF NO ERR 
026346 000240 NOP ‘RETURN HERE IF ERR on 
026350 104000 EMT sERROR # DEFINED BY PUT SUBROUTINE 
026352 000137 026532 JMP 190$ :G60 TO 190$ IF ERROR 

1779 026356 130$: 

1781 ;WAIT FOR READ TO COMPLETE AND GET STATUS 

HEA 026356 004737 037722 JSR PC,TIMOUT ;WAIT FOR READ TO COMPLETE 

1784 026362 004737 037110 JSR PC,GET 360 ~ ag eee WITH GET SUBROUTINE 
026366 000404 - BR 146$ :GO TO 140$ IF N OER RROR 
026370 000240 NOP RETURN HERE IF ERR 
026372 104000 EMT TERROR # DEFINED BY OfET SUBROUT INE 
026374 000137 026532 JMP 1908 760 TO 190$ IF ERROR 

1785 026400 140$: 

1787 sVERIFY THE RESULTS OF READ OPERATION 

1788 026400 004737 040106 JSR PC,PRIERR 360 CHECK FOR ey —— 
026404 000405 BR 156$ :60 TO 150$ IF NO ERR 
026406 000240 NOP ‘RETURN HERE IF NERRORS 
026410 10400 EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
026412 004736 JSR PC,a(SP)+ :G0 BACK FOR MORE ERROR CrECKS 
026414 000137 026532 P 196$ :G0 TO 190$ IF ERROR 

1789 026420 150$: 

1790 026420 004737 052622 PC ,DTASTS 60 VERIFY RESULTS OF DATA TRANSFER 
026424 000405 BR 166$ 760 TO 160$ IF NO ERROR 
026426 000240 NOP TRETURN HERE IF ERROR 
026430 104000 EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
026432 004736 JSR PC,a(SP)+ 60 BACK FOR reer ERROR CHECKS 
026434 000137 026532 JMP 196$ *GO0 TO 190$ IF ERROR 
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| CZRMNAD RMOS /3/2 
127 FORMAT AY OFFS SEQ 0130 


1791 160$: 
1792 004737 040740 JSR PC, SECERR :G0 CHECK FOR SECONDARY ERRORS 
000405 BR 176$ :G0 TO 170$ IF NO ERROR 
000240 NOP SRETURN HERE IF ERROR 
104000 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
004736 JSR PC,a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
000137 026532 JMP 196$ 760 TO 190$ IF ERROR 
179 026460 170$: 
1765 ; :VERIFY DATA 
1796 026460 004737 036462 JSR PC, CMPBUF 7G0 COMPARE WRITE, READ DATA BUFFERS 
026464 101206 .WORD BUFONE SSTARTING ADDRESS OF WRITE BUFFER 
f 026466 102212 .WORD BUFTWO :STARTING ADDRESS OF READ BUFFER 
| 026470 000404 BR 180$ :G0 TO 180$ IF NO ERROR 
026472 000240 NOP TRETURN HERE IF ERROR 
| 026474 104000 EMT TERROR # DEFINED BY CMPBUF SUBROUTINE 
026476 000137 026532 JMP 190$ :G0 TO 190$ IF ERRO 
1797 026502 180$: 
1798 026502 032737 000200 001442 BIT #OFD,RMOFO :DONE BOTH OFFSETS?? 
1799 026510 001010 BNE 190$ = YES 
1800 026512 052757 000200 001442 BIS #OFD,RMOFO SET * FORWARD OFFSET 
1801 026520 012737 101206 001414 MOV #BUFONE,RMBAO CHANGE DATA BUFFER 
1802 026526 000137 025752 JMP 20$ 
1803 026532 190$: 
1805 SAREE eeeKe Ketek keKeekeKeKkKeKeKkeeeee 
SSTEST 30 IVC FORMAT TEST 
'MABABBAASAALBARASLARASAAEZAZLASZAAZASZAEALELESASASSESESAESEE SES ESEESR ESSA SG 
026532 18130: 
026532 000004 SCOPE ZSCOPE CALL 
026534 000240 NOP [START OF TEST 
026536 012706 001100 MOV WSTACK,SP [INITIALIZE STACK POINTER 
026542 013700 001276 MOV $BASE ,RO [RO = UNIBUS ADDRESS 
026546 013701 001464 MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
ee 026552 012737 000030 001226 MOV #30, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
1807 ;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
1808 026560 012737 000000 001444 MOV #0,RMDCO :CYLINDER = 0 
1809 026566 012737 000000 001416 MOV #0. RMDAO [TRACK = 0, uSECTOR = 0 
1810 srth4 012737 010000 001442 MOV - #FMT16, RMOFO 716 BIT FORM 
1811 0266 02 012737 177376 001412 MOV #-258.,RMWCO :2 + 256 YORDS (2°S COMP) 
1812 026610 012737 101206 001414 MOV peur one. RMBAO :DATA BUFFER ADDRESS 
1813 026616 012737 000062 001410 MOV #WH,RMCS10 sWRITE HEADER AND DATA 
1815 :VERIFY THAT SECTOR IS NOT BAD 
026624 004737 034276 JSR PC,BADSCT :CALL BAD SECTOR MODULE 
026630 000405 BR 10$ :GO TO 10$ IF NO ERROR 
026632 104401 063120 TYPE ,SCTMSG :TYPE BAD SECTOR MESSAGE 
026636 104000 EMT TERROR # DEFINED BY geansct SUBROUT INE 
026640 000137 027354 JMP 1908 760 TO 190$ IF ERROR 
1816 026644 10$: 
1817 026644 012737 001416 001174 MOV #RMDAO,STMPO = USE SECTOR FOR DATA PATTERN 
1818 026652 012737 000001 001176 MOV #1,$TMP1 
1819 026660 004737 036224 JSR PC .GENBUF :G0 GENERATE DATA BUFFER 
1820 026664 20$: 
1822 sPREPARE DEVICE FOR DATA TRANSFER 


f 
| 


IvC FORMAT TEST 


1823 026664 
026670 


026 
096706 


026720 
026726 


et as a a os 
—SOVDOnous 
o 
™m 
o 
2 


026744 


026744 


2 G9 0D CD Co 
SECRExDEsececens 


027056 


1855 057070 


004737 
154130 


000404 
0 


et et ot ot ot ot IOOO 
a a ad ed ed ed 
HS RPP PPPoPonoforyenys 


i$ CRM RMOS/3/2 FCINL TST 2 


033352 


027354 


000001 
000024 
000200 


037360 


027354 


000063 


000200 
037360 


027354 


037024 
037722 


037110 


027354 
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001410 
001434 


PREPARE DEVICE FOR TEST 
: TASK DESCRIPTOR AS FOLLOWS: 
sSELECT DEVICE & VERIFY DEVICE AVAILABLE 
sCLEAR CONTROLLER @ SELECT DEVICE 
: VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE JF VOLUME NOT VALID 
; VERIFY oats ACKNOWLED 


GE 
IF NsKI OR ‘'PIP’’ IS SET 


; ERR 
sERROR # DEFINED BY TSTPRP SUBROUTINE 


:60 TO 190$ IF ERROR 


sRESET VOLUME VALID BY = Ab, AND RESETTING DIAGNOSTIC MODE 
DMD ,RMMR ;SET DIAGNOSTI 


OD 
WRITE REGISTER INDEX TABLE 
+60 WRITE REGISTER(S) WITH PUT SUBROUTINE 
5 NO ERROR 


ERROR 
ERROR # DEFINED 4 Pa SUBROUT INE 
3:60 TO 190$ IF ERRO 


AND DATA COMMAND 

sWRITE HEADER AND DATA 
sRESET DIAGNOSTIC MODE 
sWRITE REGISTER INDEX TABLE 


G0 WRITE a yt WITH PUT SUBROUTINE 
:G0 TO 80$ IF RROR 

;RETURN HERE If OERR OR 

ERROR # DEFINED BY PUT SUBROUTINE 


:G0 TO 190$ IF ERROR 


:SETUP INPUT REGISTER BUFFER FOR READING STATUS 
JSR PC,GETSTS 


JSR PC, TSTPRP 
“WORD 154130 
BR 308 
NOP 
EMT 
JMP 190$ 

30$: 
MOV 
MOVB = #RMMRT MPUT INK 
MOVB #200,PUTINKX+1 
JSR PC PUT 
BR 35¢ 
NOP 
EMT 
JMP 1908 

35$: 

;SETUP AND EXECUTE WRITE HEADER 
MOV #WH'GO,RMCS10 
MOV #0,RMMR1 
MOV #PUTINX,R2 
MOVB  #RMMR1,(R2)+ 
MOVB  &#RMDA,(R2)+ 
MOVB  #RMDC,(R2)+4 
MOVB  #RMOF.(R2)4 
MOVB  #RMWC.(R2)¢4 
MOVB  #RMBA.(R2)+4 
MOVB = #RMCS1,(R2)+ 
MOVB #200, (R2)+ 
JSR PC,PUT 
BR 80$ 
NOP 
EMT 
JMP 1908 

80$: 
JSR PC. TIMOUT 
JSR PC GET 
BR 90$ 
NOP 
EMT 
JMP 190% 


90$: 


WAIT FOR COMMAND TO COMPLETE 


se ‘ss wine git WITH GET SUBROUTINE 
0 90$ IF NO ERROR 

‘RETURN HERE IF ERROR 

ERROR # DEFINED BY —" SUBROUTINE 

3:60 TO 190% IF ERROR 


SEQ 0131 
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ivC FORMAT TEST SEQ 0132 
1889 ERIFY RESULTS OF WRITE COMMAND 
3V Y UL W if) N 
1858 027070 004737 040106 JSR PC, PRIERR 760 CHECK FOR PRIMARY ofPRORS 
027074 0004605 BR 106$ 760 TO 100$ IF NO ERR 
027076 000240 NOP ‘RETURN HERE IF ERROR. 
027100 104900 EMT TERROR @# DEFINED BY PRIERR SUBROUTINE 
027102 004736 JSR PC, a(SP)+ 760 BACK FOR MORE ag RROR CHECKS 
027106 000137 027354 JMP 196$ 760 TO 1908 IF ERR 
1859 027110 1008: 
1860 027110 032737 010000 001376 BIT #1VC,RMERZI :1$ IVC STATUS SET?? 
1861 027116 001012 BNE 110$ “YES! ! 
1862 027120 013737 001376 001142 MOV RMER21,$BDDAT :RECEIVED STATUS FOR TYPEOUT 
1863 027126 013737 001376 001140 MOV RMERZ1,$GDDAT EXPECTED STATUS 
1864 027134 052737 010000 001140 BIS #1VC,SGDDAT 
1865 027142 104342 EMT 342 
1866 027144 110$: 
1867 027144 004737 040740 JSR PC, SECERR :G0 CHECK FOR SECONDARY ERRORS 
027150 000405 BR 120$ :60 TO 120$ IF NO ERR 
027152 000240 NOP sRETURN HERE IF ERROR 
027154 104000 EMT TERROR # DEFINED BY SECERR SUBROUT INE 
027156 0047 JSR PC,a(SP)+ 3;G0 BACK FOR MORE ERROR CHECKS 
027160 000137 027354 JMP 196$ :GO TO 190$ IF ERROR 
1868 027164 1208: 
1869 
1870 ZCLEAR IVC ERROR 
1871 027164 006737 033352 JSR PC 1STPRP :PREPARE DEVICE FOR TEST 
027170 040100 “WORD 04010 [TASK DESCRIPTOR AS FOLLOWS: 
;CLEAR CONTROLLER @ SELECT DEVICE 
[VERIFY CONTROLLER CLEAR OPERATION 
027172 000404 BR 125$ [G0 TO 125$ IF NO ER RROR 
027174 000240 NOP [RETURN HERE IF ERR 
027176 104000 EMT TERROR # DEFINED BY OF STPRP SUBROUT I NE 
027200 000137 027354 JMP 1908 [60 TO 190$ IF ERROR 
1872 027204 125$: 
1874 ;READ HEADER AND B mney FOR SECTOR JUST WRITTEN 
1875 027206 012737 000073 001410 MCV H'GO,RMCS10 ;READ HEADER & DATA COMMAND 
187% 027212 012737 102212 001414 MOV seul tus. RMBAO :CHANGE BUS ADDRESS 
1878 027220 004737 037360 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
027224 000404 BR 136$ 7GO TO 130$ IF NO ERROR 
027226 000240 NOP sRETURN HERE IF ERROR 
272 104000 EMT sERROR # DEFINED BY PUT SUBROUTINE 
027232 000137 027354 JMP 1908 760 TO 190$ IF ERROR 
1879 027236 1308: 
1881 ;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
1882 02 006737 037026 JSR PC,GETSTS 
1883 027242 004737 037722 JSR PC. TIMOUT :WAIT FOR READ TO COMPLETE 
1885 0272 004737 037110 JSR PC GET 360 = Pg abe? WITH GET SUBROUTINE 
027252 000404 BR 1468 760 TO 140$ IF NO ER ROR 
027254 000240 NOP TRETURN HERE IF ERR 
027256 104000 EMT sERROR # DEFINED BY Ofer SUBROUT INE 
027260 000137 027354 JMP 1908 :GO TO 190$ IF ERROR 
886 027264 1408: 
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1VC FORMAT TEST SEQ 0133 
1888 :VERIFY THE RESULTS oof READ OPERATION - 
1889 027264 004737 040106 PC PRIERR :G0 CHECK FOR PRIMARY ERRORS 
027270 000405 aR 156s :60 TO 150$ IF NO ER ROR 
Oerere 000240 NOP :RETURN HERE IF ERROR 
027274 104 90 EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
027276 004736 JSR PC ,a(SP)¢ 760 BACK FOR MORE ERROR CHECKS 
na 927300 000137 027354 nan JMP 190$ :60 TO 190$ IF ERROR 
1891 927304 032737 010000 001376 BIT #1VC,RMERZI i1s IvC STATUS SET?? 
189 027312 001012 BNE 160$ YES! 
1893 027314 013737 001376 001142 MOV RMER21,$BDDAT ‘RECEIVED STATUS FOR TYPEOUT 
1894 027322 013737 001376 001140 MOV RMERZI,$GDDAT EXPECTED STATUS 
1895 027330 052737 010000 001140 BIS #1VC,$GDDAT 
1896 027336 104342 EMT 342 
1897 027340 160$: 
1898 027340 004737 040740 JSR PC,SECERR 360 ers FOR yr ERRORS 
027 000403 BR 176$ :G60 TO 170$ IF NO ERROR 
027 000240 NOP ;RETURN HERE IF ERROR 
027350 104000 EMT [ERROR # DEFINED BY SECERR SUBROUTINE 
027352 004736 JSR PC,a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
1899 027354 1708: 
1900 
1901 027354 190$: 
1902 
1903 SRR AAERRAAAE AAA EATAAAAAAATAAAAAAERARTAAHEREREReeeAAe ee 
 STEST 31 FORMAT ERROR TEST 
FREER RARER EAE TERETE AERA AAAAEHARAARHAReeReeeeeeeeeeee 
027354 18131: 
027354 000004 SCOPE :SCOPE CALL 
027356 000240 NOP sSTART OF TEST 
027360 012706 001100 MOV MSTACK,SP s INITIALIZE we POINTER 
027364 013700 001276 MOV S$BASE ,RO [RO = UNIBUS ADDRE 
027370 013701 001464 MOV TSTQUE,R1 :(R1) = DEVICE BEING TESTED 
ae 027374 012737 000031 001226 MOV #31,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
1905 ;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
1906 027402 012737 000000 001444 MOV #0,RMDCO CY tl NDER = 0 
1907 027410 012737 000000 001416 MOV #0. RMDAO TRA = 0. SECTOR = 0 
1908 027416 012737 000000 001442 MOV #0. RMOFO : 18. BIT MAT 
1909 027426 012737 177376 001412 i MOV #-258.,RMWCO  —:2 + $56. GORDS (2°S COMP) 
1911 027432 012737 101206 001414 MOV #BUFONE,RMBAO  ;DATA BUFFER ADDRESS 
1912 027440 012737 000062 001410 MOV #WH,RMCS10 ‘WRITE HEADER AND DATA 
1914 ZVERIFY THAT SECTOR IS NOT BAD 
027446 004737 034276 JSR PC ,BADSCT :CALL BAD SECTOR MODULE 
027452 000405 BR 10$ TO 10% IF NO ERROR 
027454 104401 063120 TYPE  ,SCTMSG Pope BAD SECTOR MESSAGE 
027460 104000 EMT TERROR # DEFINED BY geanscr SUBROUT INE 
027462 000137 030136 JMP 180% [G0 TO 180$ IF ERROR 
1915 027466 108: 
1916 027466 012737 064620 001174 MOV ZEROS STMPO =; USE ALL ZEROS DATA PATTERN 
1917 0276474 012737 000001 001176 MOV 1, $TMP1 
1918 027502 004737 036224 JSR 4a * GENBUF 3G0 GENERATE DATA BUFFER 
1919 027506 208: 
1921 ;PREPARE DEVICE FOR DATA TRANSFER 
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FORMAT ERROR TEST SEQ 0134 
1922 027506 004737 033352 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
027512 154130 -WORD 154130 [TASK DESCRIPTOR AS FOLLOWS: 
[SELECT DEVICE & VERIFY DEVICE AVAILABLE 
[CLEAR CONTROLLER & SELECT DEVICE 
[VERIFY CONTROLLER CLEAR OPERATION 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF ‘SKI’ OR PIP’ IS SET 
sVERIFY RECALIBRATION 
027516 000404 BR 308 [60 TO 30$ IF NO ERROR ; 
027516 000240 NOP SRETURN HERE IF ERR 
027520 104000 EMT sERROR # DEFINED a OT STPRP SUBROUTINE 
027522 000137 030136 JMP 1808 :G0 TO 180$ IF ERRO 
1923 027526 308: 
1925 ;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
1926 027526 012737 000063 001410 MOV #WH'GO,RMCS1O. ;WRITE HEADER AND DATA 
1927 027534 012702 001551 ROY #PUTINK,R2 sWRITE REGISTER INDEX TABLE 
1928 027540 112722 006 MOVB = #RMDA,{22)4 
1929 027544 112722 000034 MOVB  #RMDC.(R2)¢ 
1930 027550 112722 000032 MOVB  #RMOF.(R2)¢ 
1931 027554 112722 000002 MOVB  #RMWC.(R2)4 
1932 027560 112722 000004 MOVB #RMBA.(R2)+ 
1933 027564 112722 000000 MOVB = #RMCS1,(R2)4 
1934 027570 112722 000200 MOVB #200,(R2)¢ ’ 
1936 027574 004737 037360 JSR PC,PuT 260 WRITE REGISTER(S) WITH PUT SUBROUTINE 
027600 000404 BR 80$ 0 TO 80$ IF NO ERROR 
027602 000240 NOP RETURN HERE IF ERROR 
27604 104000 EMT sERROR # DEFINED BY PUT SUBROUTINE 
027606 000137 030136 JMP 180% 760 TO 180$ IF ERROR 
1937 027612 808: 
1939 ;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
1940 027612 0046737 037024 JSR PC,GETSTS 
H+ ot 027616 004737 037722 JSR PC,TIMOUT ;WAIT FOR COMMAND TO COMPLETE 
1943 027622 004737 037110 JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
027626 000404 BR 90$ 760 TO 90$ IF NO NO ER ROR 
027630 000240 NOP ;RETURN HERE IF ERR 
027632 104000 EMT TER ROR # DEFINED BY nce} SUBROUT INE 
027634 000137 030136 JMP 180$ 760 TO 180$ IF ERROR 
1946 027640 908: 
1946 ;VERIFY RESULTS OF WRITE COMMAND 
1947 027640 004737 040106 JSR P RIERR +60 CHECK FOR gy ERRORS 
027644 000405 BR 106$ -GO TO 100$ IF NO ERROR 
027646 000240 NOP [RETURN HERE IF ERR 
027650 104000 EMT sERROR # DEFINED BY OO RIERA SUBROUT INE 
027652 004736 JSR PC. a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
027654 000137 030136 JMP 180$ :G0 TO 180$ IF ERROR 
1948 027660 1008: 
1949 027660 006737 052622 JSR PC .DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
027 000405 BR 116$ 760 TO 1108 IF NO ERROR 
027 000240 NOP RETURN HERE IF ERROR 
027670 104000 EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
027672 004736 JSR PC,a(SP)+¢ 3;G0 BACK FOR MORE ERROR CHECKS 
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SEQ 0135 

027674 000137 030136 MP 180$ 760 TO 180$ IF ERROR 

1950 027700 110$: 

1951 027700 004737 040740 JSR PC, SECERR 760 CHECK FOR SECONDARY ERRORS 
027704 000405 BR 1268 :60 TO 1208 IF NO. ERROR 
027706 000240 NOP SRETURN HERE IF ERROR 
027710 104000 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
027712 004736 JSR PC, a(SP)+ 'GO BACK FOR MORE ERROR CHECKS 
027714 000137 030136 yMP 186$ :G0 TO 180$ IF ERROR 

1952 027720 120$: 

1954 ;READ HEADER AND DATA FOR SECTOR JUST WRITTEN IN OPPOSITE FORMAT 

1955 [TO CHECK THAT "FER" SETS 

1956 027720 005137 001442 COM RMOFO :CHANGE TO OPPOSITE FORMAT 

1957 027724 042737 167777 001442 BIC #°C<FMT16>,RMOFO. 

1958 027732 012737 102212 001414 MOV #BUFTWO,RMBAO  ;CHANGE BUS ADDRESS 

4 027740 012737 000073 001410 MOV #RH'GO,RMCS1O ;READ HEADER & DATA COMMAND 

1961 027746 006737 037360 JSR PC,PuT 360 WRITE a th as che WITH PUT SUBROUTINE 
027752 000404 BR 136$ :GO0 TO 130% IF NO ER ROR 
027754 000240 NOP sRETURN HERE JF ERROR 
027756 104000 EMT [ERROR # DEFINED BY PUT SUBROUTINE 
027760 000137 030136 JMP 180$ 760 TO 180$ IF ERROR 

1962 027764 130$: 

1964 ;WAIT FOR READ T0 a fy AND = STATUS 

bsg 027764 004737 037722 JSR PC,TIMO WAIT FOR READ TO COMPLETE 

1967 027770 004737 037110 JSR PC,GET 3;GO READ REGISTER(S) —” GET SUBROUTINE 
027774 000404 BR 140$ 760 TO 140$ IF NO ERR 
027776 000240 NOP [RETURN HERE IF ERROR 
030000 104000 EMT sERROR # DEFINED BY GET SUBROUTINE 
030002 000137 030136 JMP 180$ :G0 TO 180$ IF ERROR 

1968 030006 140$: 

1970 ;VERIFY THE RESULTS OF READ OPERATION 

1971 030006 004737 040106 JSR PC,PRIERR 3;GO CHECK FOR oy ERRORS 
030012 000405 BR 156$ :GO0 TO 150$ IF NO ERROR 
030014 000240 NOP SRETURN HERE IF ERROR 
030016 104000 EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
030020 004736 JSR PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
030022 000137 030136 JMP 180$ :G0 TO 180$ IF ERROR 

1972 030026 150$: 

1974 :VERIFY THAT FORMAT ERROR IS SET 

1975 030026 032737 000020 001350 BIT #FER,RMERT] 71S FORMAT ERROR SE1?? 

1976 050034 001022 BNE 160$ YES! ! 

1978 030036 004737 052622 JSR PC DTASTS 3G0 VERIFY — OF DATA TRANSFER 
030062 000405 BR 155$ :GO TO 155$ IF NO ERROR 
030044 000240 NOP ;RETURN vere. IF Me RROR 
030046 104000 EMT S ERROR # DEFINED BY DTASTS SUBROUTINE 
030050 004736 JSR PC ,a(SP)¢ 3;GO BACK FOR MORE ERROR CHECKS 

—_ 030052 000137 030136 JMP 186$ 760 TO 180$ IF ERROR 

1980 030056 013737 001350 001142 155%: MOV RMER11,$BDDAT ;BAD DATA FOR TYPEOUT 

1981 030064 013737 001350 001140 MOV RMERTI,$GDDAT [EXPECTED DATA 

1982 030072 052737 000020 001140 BIS #FER,SGDDAT 
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T SEQ 0136 
1983 030100 104343 EMT 343 
1984 030102 160$: 
1985 030102 004737 040740 JSR PC,SECERR 3:60 ad FOR "tS cena ERRORS 
030106 000405 BR 176$ :60 TO 170$ IF NO ERR 
030110 000240 NOP TRETURN HERE IF ERR 
030112 104000 EMT ZERROR # DEFINED BY OSE CERR SUBROUT INE 
030114 004736 JSR PC,a(SP)+¢ 7GC BACK FOR MORE — CHECKS 
030116 000137 030136 JMP 186$ 760 TO 180$ IF ERROR 
1986 030122 1708: 
Hb 44 030122 032737 010000 001442 BIT #FMTI6,RMOFO ‘tee v8 git yp A FORMAT AND 
1989 030130 001402 BEQ 1808 BR IF 
1990 030132 000137 027432 IMP 5$ TEST again 
1991 030136 180$: 
1992 
1993 sR RAAE RARER ERE HEEH TETHER RRERATHEEAH HEHEHE eereeeerer 
:*TEST 32 FORMAT HCE, FIRST HEADER WORD 
[ROeReeeeeeeneeeeeeeeeeeeeteeeeteenteteeeeeeteeteeereteeteeeeeese 
030136 18132: 
030136 000004 SCOPE ° ;SCOPE CALL 
030140 000240 NOP ;START OF TEST 
030142 012706 001100 MOV ASTACK,SP INITIALIZE STACK POINTER 
030146 013700 001276 MOV SBASE ,RO “RO = UNIBUS ADDRESS 
030152 013701 001464 MOV TSTQUE,R1 (RI) = DEVICE BEING TESTED 
seq, 930156 012737 000032 001226 MOV #32, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
195 030164 012737 000001 031134 MOV #1,2308 :INIT BIT POSITION 
1997 ; SETUP PARAMETERS FOR GENERATING DATA BUFFER 
1998 03017 i0$: 
1 030172 012737 010000 001442 MOV #FATI6,RMOFO 316 BIT FORMAT 
2000 030200 012737 000000 001444 MOV #0, RMDCO :CYLINDER = Oe 
2001 030206 012737 000000 001416 MOV #0, RMDAO STRACK = 0, = 0 
2002 030214 012737 177376 001412 MOV #-258.,RMWCO 32 + 256 wonbs. Gt S COMP) 
2003 030222 012737 101206 001414 MOV #BUF ONE, RMBAO ;DATA BUFFER ADDRESS 
coe 030230 012737 000062 001410 MOV #wH, RMCS10 sWRITE HEADER AND DATA 
2006 :VERIFY THAT SECTOR IS NOT BAD 
030236 004737 034276 JSR PC,BADSCT :CALL BAD SECTOR MODULE 
030242 000405 BR 208 360 TO 20$ IF NO ERROR 
030244 104401 063120 TYPE ~SCTMSG ; TYPE BAD SECTOR MESSAGE 
030250 104000 EMT S ERROR # DEFINED BY BADSCT SUBROUTINE 
030252 000137 031306 JMP 2708 :G0 TO 270$ IF ERROR 
2007 030256 20$: 
2008 030256 C12737 064620 001174 MOV #ZEROS,STMPO ;USE ALL ZEROS DATA PATTERN 
2009 030264 012737 000001 001176 MOV #1,S1MP1 
2010 030272 004737 036224 JSR PC ,GENBUF 3G0 GENERATE DATA BUFFER 
2011 03027 308: 
2013 ;PREPARE DEVICE FOR oe TRANSFER 
2014 030276 004737 033352 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
030302 154130 ~ WORD 154130 : TASK DESCRIPTOR AS FOLL 


ve pet 
sSELECT DEVICE & VERIFY DEVICE AVAILABLE 
sCLEAR CONTROLLER & SELECT DEVICE 
: VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 
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101206 
101206 
101206 


001410 


40$: 


suitaincm <{ 


50$: 


Q 
BIC 
BR 
BIS 


SEQ 0137 
acate aac IF ‘’SKI"' OR ‘'PIP’’ IS SET 
‘Vv RIFY RECALIBRATION 
40$ 360 TO 40$ IF NO ERROR 
* RETURN HERE IF ERROR 
TERROR # DEFINED BY TSTPRP SUBROUTINE 
270% 760 TO 2708 IF ERROR 
DATA Rit bur — HEADER WORD 
2308 ONE 31S BIT IN HEADER ON?? 
508 ‘NO! 


+ + ati RESET BIT IN HEADER 
230%, BUF ONE ;SET BIT IN HEADER 


a AND EXECUTE WRITE HEADER AND DATA COMMAND 


70$: 


#WH'GO,RMCS1O ;WRITE HEADER AND DATA 
#PUTINKX,R2 sWRITE REGISTER INDEX TABLE 


#RMCS1,(R2)4 


#200, (R2)4 
PC,PUT 60 WRITE REGISTER(S) WITH PUT SUBROUTINE 
70$ 760 TO 70$ IF NO ER non 
[RETURN HERE IF ERRO 
TERROR # DEFINED BY Pur SUBROUT INE 
2208 760 TO 220$ IF ERROR 


;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
JSR ETSTS 


80$: 
s VERIFY 


90$: 


JSR 


PC, TIMOUT ;WAIT FOR COMMAND TO COMPLETE 
PC GET $3 —* ye ge = GET SUBROUTINE 
80% O 80$ IF NO ER ~— 


RETURN HERE. IF ERR 
ERROR # DEFINED BY °GeT SUBROUTINE 
2208 G0 TO 220% IF ERROR 


OF WRITE COMMAND 
PC, PRIERR :GO CHECK FOR PRIMARY ERRORS 
90$ :GO 10 90$ IF NO ERROR 


ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 


PC ,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
2268 760 TO 220$ IF ERROR 

PC .DIASTS 60 VERIFY RESULTS OF DATA TRANSFER 
106$ 760 TO 100$ IF NO ER ROR 


TRETURN HERE IF ERROR 
ERROR # DEFINED BY DTASTS SUBROUTINE 
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Sey ue — P 
MOG FNMASNwO - 


20 

2055 030536 
2056 030544 
057 


2058 030552 
030556 


030564 
2059 030570 
2060 
2061 
2062 030570 
2063 
2064 030574 
030600 
030606 
2065 030612 
2066 


2067 
2068 030612 
0 6 


2072 0 
2073 030650 
2074 


2075 
2076 030652 
2077 030660 
2078 
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040106 


031132 
140000 
010000 


000020 


052622 


031132 
001350 
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001410 
001414 


031134 
031134 


001350 


001142 


100$: 


1108: 


PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 


226$ [G0 TO 2208 IF ERROR 
PC, SECERR 7G0 CHECK FOR SECONDARY ERRORS 
116$ :60 TO 110$ IF NO ERR 
[RETURN HERE IF ERROR. 
[ERROR # DEFINED BY SECERR SUBROUTINE 
PC, a(SP)+ [G0 BACK FOR MORE ERROR CHECKS 
226 :G0 TO 220$ IF ERROR 


sREAD — AND DATA FOR SECTOR JUST WRITTEN 


MOV 


1208: 


JSR 
B 


WRH'GO,RMCS1O  ;READ HEADER & DATA COMMAND 
#BUFTWO,RMBAO = CHANGE BUS ADDRESS 
PC, PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
120$ :G0 TO 120$ IF NO ERROR 
[RETURN HERE IF ERROR 
TERROR # DEFINED BY PUT SUBROUTINE 
2208 [60 TO 220$ IF ERROR 
:WAIT FOR READ TO COMPLETE AND GET STATUS 
JSR PC, TIMOUT ;WAIT FOR READ TO COMPLETE 
PC GET :60 READ REGISTER(S) WITH GET SUBROUTINE 
130$ 0 130$ IF NO ERR OR 
RETURN HERE IF ERR 
TERROR # DEFINED BY “GET SUBROUT INE 
2208 :G0 TO 220$ IF ERROR 


130$: 


sVERIFY oa 


140$: 


: VERIFY ae FER IS SET 


BNE 


150$: 


RESULTS OF — OPERATION 


PC ,PRIERR :GO CHECK FOR PRIMARY ERRORS 
146$ [G0 TO 140$ IF NO ERROR 


: ERROR 
TERROR # DEFINED BY PRIERR SUBROUT INE 
PC, a(SP)+ [G0 BACK FOR MORE ERROR CHECKS 
220$ [60 TO 220$ IF ERROR 


#MSE!USE ,230$ : SHOULD BSE BE SET ? 
160% ; YES 

#FMT16,250$ its this FER ?? 

180% NO 


#FER,RMERII :1S FER SET ?? 
2008 sYES !! 
PC DTASTS :60 VERIFY RESULTS OF DATA TRANSFER 
156$ 0 TO 150$ IF NO ERROR 

‘RETURN HERE IF ERROR 

“ERROR # DEFINED BY DTASTS SUBROUTINE 
PC, a(SP)¢ [G0 BACK FOR MORE ERROR CHECKS 
2268 :G0 TO 220$ IF ERROR 


RMERI],$BDDAT ;RECEIVED STATUS 


SEQ 0138 
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2089 030730 
2090 030736 
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001140 
001140 


001376 


001142 
001140 
001140 


001350 


sEXPECTED STATUS 


:1S BSE SET ?? 
své$ $3 


360 + a A sink OF DATA TRANSFER 
;G0 TO 1708 IF NO ER “wr 

‘RETURN HERE IF NERROR 

sERROR # DEFINED BY DTASTS SUBROUTINE 
:G0 BACK FOR MORE ERROR CHECKS 

G0 TO 220$ IF ERROR 


sRECEIVED STATUS 
EXPECTED STATUS 


SKIP REST OF TEST 


s1S “WCE” SET?? 
sVES!' 


:60 vender RESULTS OF DATA TRANSFER 
:G0 TO 190$ IF NO ERROR 

‘RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 


:G0 BACK FOR MORE ERROR CHECKS 


360 TO 220$ IF ERROR 


sRECEIVED STATUS FOR TYPEOUT 
EXPECTED STATUS 


:GET HEADER WORD NUMBER 


:GET FAILING BIT POSITION 


GO CHECK FOR ero ERRORS 
:G0 TO 210$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 
:G0 BACK FOR MORE ERROR CHECKS 

260 TO 220% IF ERROR 


; ADVANCE mn Ott test teen AND FORMAT ay IF NOT DONE 


MOV RMERI1,S$GDDAT 
BIS #FER, SGDDAT 
EMT 43 
BR 2208 
-VERIFY THAT BSE IS SET 
1608: 
BIT #BSE RMERZI 
BNE 200$ 
JSR PC,DTASTS 
BR 176$ 
NOP 
EMT 
JSR PC,a(SP)+ 
MP 2268 
170$: 
MOV RMER21,S$BDDAT 
MOV RMER21,$GDDAT 
BIS #BSE,$GDDAT 
EMT 345 
BR 2208 
:VERIFY THAT HCE IS SET 
180$: 
BIT #HCERMERTI 
BNE 200$ 
JSR PC,DTASTS 
BR 196$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 2208 
190$: 
MOV RMER11,S$BDDAT 
MOV RMER11,SGDDAT 
BIS #HCE ,SGDDAT 
MOV #1, $TMPO 
MOV 230$,S1MP1 
EMT 344 
Be 220% 
2008: 
ZCHECK FOR OTHER ERRORS 
Js PC, SECERR 
BR 216$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 2208 
2108: 
30 
ae 2408 
JMP 10$ 


Feit TO NEXT BIT POSITION 
sEXIT IF DONE 
[60 DO NEXT SECTOR 


SEQ 0139 


— RMO5S/3/2 FCTNL TST 2 


FORMAT HCE, 

$1$¢ 

125 031132 000465 

2126 031134 000000 

2127 

2128 

2129 

2130 

2131 031136 

2132 031136 012737 

2133 031144 012737 

2134 031152 012737 

2135 031160 012737 

$i36 031166 004737 

2138 031172 004737 
031176 154130 
031200 000404 
031202 000240 
031204 104000 
031206 000137 

2139 031212 

2140 031212 012737 

2141 031220 012702 

2142 031224 112722 

2143 031230 112722 

2144 031234 112722 

2145 031240 112722 

2146 031244 112722 

2147 031250 112722 

2148 031254 112722 

2149 031260 004737 
031264 000404 
031266 000240 
031270 104000 
031272 000137 

2150 031276 

215: 031276 240 

2152 031300 004737 

2153 031304 000240 

2154 031506 

2155 

2156 
031306 
031306 000004 
031310 000240 
031312 012706 
031316 013700 
031322 013701 


033352 


031212 
gone: 


00 
037360 


031306 


037722 


001100 
001276 
001464 
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FIRST HEADER WORD 


001410 


220$ 
2308 


BR 
- WORD 


2708 
0 


; JUMP TO NEXT TEST 


: STORAGE FOR BIT POSITION 


, etereerearerarerererererererenreneneeeaeeeeeeeeeeeeneeeeeneeeee 


{REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER 


SPARK HAHAHHeTHTHAHHeEHReTeAHAHKAekeeeenaeeeeeeteeneeteneneeese 


bios: 


2508: 


2608: 


2708: 


#FMT16,RMOFO 
#-2,RMWCO 
#BUF ONE , RMBAO 
#WHRMCS10 

PC ,GENBUF 


PC, TSTPRP 
154150 


250% 


250% 
ony ot RMCS10 
X,R2 


#RMBA. (R2)+ 
#RMCS1, (R2)4 
#200, (R2)4 
PC PUT 


260$ 
2708 


PC,TIMOUT 


316 BIT MODE 


D 
ONLY TWO HEADER WORDS 
SELECT THE BUFFER 


;WRITE HEAD AND DATA COMMAND 
:GENERATE THE BUFFER PATTERN 


sPREPARE DEVICE FOR TEST 

;TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE © VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER @ SELECT DEVICE 


VERIFY CONTROLLER CLEAR OPERATION 


;PACK ACKNOWLEDGE IF VOLUME NOT VALID 


:VERIFY PACK ACKNOWL 


EDGE 
sRECALIBRATE IF ‘‘SKI*' OR ‘'PIP’’ 


: VERIFY eee hg oe tae 


:G0 TO 250 


$ IF NO — 


;RETURN HERE IF ERR 
sERROR # DEFINED oY TSTPRP SUBROUTINE 


360 TO 250$ 


IF ERRO 


SET THE GO BIT 
PUT THE REGISTER ADDRESS INTO TABLE 


; TERMINATOR 


760 WRITE np pl gt WITH PUT SUBROUTINE 
0102 Ae OR 


60$ 


IF N 


2G 
;RETURN HERE IF ERROR 
sERROR # DEFINED = Bi SUBROUT I NE 


60 TO 270$ 


WAIT UNTIL 


IF ERRO 


IT FINISH 


IS SET 


;;eeeeeeeeeeeareteeretereeeeteeeeteneneeneneeteneeeteeeeneeeeeeee 


TeTEST 33 


15133: 


FORMAT HCE, SECOND HEADER WORD 


#STACK SP 
SBASE ,RO 
TSTQUE ,R1 


eS cat 
START 


TEST 
EINITIALIZE STACK POINTER 
:R0 = UNIBUS ADDRESS 
S(R1) = DEVICE BEING TESTED 


SEQ 0140 


8 


RMNAO RMOS/3/2 FCTNL TST 2 


031326 012737 000033 


012737 000001 


Oo 
Ww 
pa 
Ww 
ye 


000000 


Wr —-O0OOon 


oooo°o0oo 
WWAA AIA 
ed ed a ed 
FS WWWnwe 
et py Sy tate 
Onmrofr NFO Oormr 
oS 
oOo — 
Fa 
—~ 
ww 
~ 


000062 


Morornornorerneneferofernefer 
a a ed a at ot 


034276 
063120 
032302 
064620 


000001 
036224 


000137 


012737 
012737 
004737 


ae ek ek ee ee 
Nw 


MMP TPPTr 
Ok ed et ot ts 
SSN NNN 
NOVUSWN—O 

o 

Ww 

—_ 

a 

& 

™Nm 


031446 
031452 


004737 
154130 


033352 


031454 000404 


000137 032302 


31466 033737 032130 
032130 


032130 


000063 


wn — 


ed td 
Sus 
SOrmeOnrenws & 


SRANLSSELSEAEABIS Sa 


POPOPININIAPIPONPIANPINGINININPY NP fy nyns 
ooooo°o[oeo 


NAA 
te at se 
PANAMA 


000004 
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3 FORMAT HCE, SECOND HEADER WORD 


001226 
032130 


101210 
101210 
101210 


001410 


MOV #33,STESTN 
MOV #1,190$ 


::SET TEST NUMBER IN APT MAIL BOX 
INIT BIT POSITION 


sCYLINDER = 0 
sTRACK = 0, SECTOR = 0 
316 BIT FORMAT 


{SETUP PARAMETERS FOR GENERATING DATA BUFFER 
"mov #0,RMDCO 
MOV #0 RMDAO 
MOV #FMT16,RMOFO 
MOV #-258. 


,RMWCO 
MOV #BUF ONE , RMBAO 
MOV #WH,RMCS10 


VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT 


A 
32 + 256 WORDS (2°S COMP) 
;DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 


:CALL BAD SECTOR MODULE 

:G0 TO 20$ IF NO ERROR 

;TYPE BAD SECTOR MESSAGE 

ERROR # DEFINED BY BADSCT SUBROUTINE 
G0 TO 2308 IF ERROR 


USE ALL ZEROS DATA PATTERN 
GO GENERATE DATA BUFFER 


PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF ‘’SKI'' OR ‘'PIP’’ IS SET 
VERIFY RECALIBRATION 

; O$ IF NO ERROR 

RETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
3:60 TO 2308 IF ERROR 


:18 BIT IN HEADER ON?? 
“RESET BIT IN HEADER 


R 
TYPE ~SCTMSG 
EMT 
JMP 230$ 
20$: 
MOV #ZEROS,STMPO 
MOV #1,STMP1 
JSR PC ,GENBUF 
30$: 
;PREPARE DEVICE FOR DATA TRANSFER 
JSR PC,TSTPRP 
-WORD 154130 
BR 40% GO 10 4 
NOP 
EMT 
JMP 2308 
jLewvencet DATA BIT IN SECOND HEADER WORD 
BIT 190$ ,BUF ONE +2 
BEQ 
BIC 190$ , BUF ONE +2 
BR 6 
50$: BIS 190$ , BUF ONE +2 


;SET BIT IN HEADER 


baa AND EXECUTE WRITE HEADER AND DATA COMMAND 


MOV #WH!GO,RMCS10 
X,R2 


MCV #PUTINX, 

MOVB #RMDA, (R2)+ 
MOVB #RMDC,(R2)+ 
MOVB #RMOF ,(R2)+ 
MOVB #RMWC, (R2)+ 
MOVB #RMBA, (R2)+ 


WRITE HEADER AND DATA 
WRITE REGISTER INDEX TABLE 


SEQ 0141 


M11 
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FORMAT HCE, SECOND HEADER WORD SEQ 0142 

2196 031552 112722 000000 MOVB = #RMCS1, (R2)+ 

2197 031556 112722 000200 MOVB #200,(R2)+ 

2199 031562 004737 037360 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
031566 000404 BR 70$ :GO TO 70$ IF NO ERROR 
031570 000240 NOP SRETURN HERE IF ERR 
031572 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
031574 000137 032126 JMP 180$ :G0 TO 180$ IF ERROR 

2200 031600 708: 

2202 ;SETUP INPUT REGISTER BUFFER FOR READING STATUS 

2203 031600 004737 037024 JSR PC,GETSTS 

sone 031604 004737 037722 JSR PC,TIMOUT ;WAIT FOR COMMAND TO COMPLETE 

2206 031610 004737 037110 JSR PC,GET :G0 READ REGISTER(S) sity GET SUBROUTINE 
031614 000404 BR 80$ 760 TO 80$ IF NO ERR 
031616 000240 NOP TRETURN HERE IF ERR 
031620 104000 EMT sERROR # DEFINED “set SUBROUTINE 
031622 000137 032126 JMP 180$ 760 70 180$ IF ERRO 

2207 031626 80S: 

2209 ;VERIFY RESULTS OF WRITE COMMAND 

2210 031626 004737 040106 JSR PC,PRIERR 260 CHECK FOR “ye Maes 
031632 000405 BR 90$ GO TO 90$ IF NO ERROR 
031634 000240 NOP “RETURN HERE Ir ERROR 
031636 104000 EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
031640 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
031642 000137 032126 JMP 180$ :G0 TO 180$ IF ERROR 

2211 031646 90S: 

2212 031646 004737 052622 JSR PC, ,DTASTS 360 og 4 RESULTS OF DATA TRANSFER 
031652 000405 BR 100$ :G0 TO 100$ IF "9 ERROR 
031654 000240 NOP RETURN HERE If ERROR 
031656 104000 EMT sERROR # DEFINED BY DTASTS SUBROUTINE 
031660 004736 JSR PC,a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
031662 000137 032126 MP 180% :GO TO 180$ IF ERROR 

2213 031666 100$: 

2214 031666 004737 040740 JSR PC, SECERR 7G0 CHECK FOR SECONDARY ERRORS 
031672 000405 BR 116$ :G0 TO 110$ IF NO ERROR 
031674 000240 NOP TRETURN HERE IF ERROR 
031676 104000 EMT ;ERROR # DEFINED BY SECERR SUBROUTINE 
031700 004736 JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
031702 000137 032126 JMP 186$ :GO TO 180$ IF ERROR 

3215 031706 110$: 

2217 ;READ HEADER AND DATA FOR SECTOR JUST WRITTEN 

2218 031706 012737 000073 001410 MOV #RH'GO,RMCS1O  ;READ HEADER & DATA COMMAND 

219 031714 012737 102212 001414 MOV #BUFTWO,RMBAO =: CHANGE BUS ADDRESS 

2221 031722 004737 037360 JSR PC,PUuT 360 oa ei git Dias PUT SUBROUTINE 
031726 000404 BR 1268 760 TO 120$ IF NO ERR 
031730 000240 NOP RETURN GERE. iF NER ROR’ 
031732 104000 EMT S ERROR # DEFINED BY Aa SUBROUT INE 
031734 000137 032126 JMP 180$ 760 TO 180$ IF ERROR 

3222 031740 : 1208: 

2224 ;WAIT FOR READ TO prt AND GET STATUS 

2225 331740 004737 037722 JSR PC, TIMOUT ;WAIT FOR READ TO COMPLETE 


N 1] 
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FORMAT HCE, SECOND HEADER WORD SEQ 0143 

$336 031744 004737 037110 SR PC GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 

J P (S) WITH UBROUTIN 

031750 000404 BR 136$ [G60 10 130$ IF NO ERROR 
031752 000240 NOP ‘RETURN HERE IF ERROR 
031754 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
031756 000137 032126 JMP 180$ +60 TO 180$ IF ERROR 

2228 031762 1308: 

2230 :VERIFY THE RESULTS OF READ OPERATION 

2231 031762 004737 040106 JSR PC,PRIERR 360 CHECK FOR Mere ERRORS 
031766 000405 BR 146$ 760 TO 140$ IF N 0 ERR OR 
031770 000240 NOP [RETURN HERE IF ERROR 
031772 104000 EMT ERROR # DEFINED BY PRIERR SUBROUTINE 
031774 004736 JSR PC,a(SP)+ 3GO BACK FOR MORE ERROR CHECKS 
031776 000137 032126 JMP 186$ :GO TO 180$ IF ERROR 

2232 032002 1408: 

2234 ;VERIFY THAT HEADER COMPARE ERROR IS SET 

2235 032002 032737 000200 001350 BIT #HCE ,RMERTI 1S g HCE” SET?? 

236 032010 001031 BNE 160$ :YES! 

2238 032012 004737 052622 JSR PC,DTASTS +4 vent eit OF DATA TRANSFER 
032016 009405 BR 156$ 0 150$ IF NO ERROR 
032020 000240 NOP SO TURN HERE IF ERROR 
032022 104000 EMT sERROR # DEFINED BY DTASTS SUBROUTINE 
032024 004736 JSR PC,a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
032026 137 032126 JMP 180$ :G0 TO 180$ IF ERROR 

2239 032032 150$: 

2240 032032 013737 001350 001142 MOV RMER11,$BDDAT sRECEIVED STATUS FOR TYPEOUT 

2241 032040 013737 001350 001140 MOV RMER11,$GDDAT sEXPECTED STATUS 

2242 032066 052737 000200 001140 BIS #HCE ,SGDDAT 

2243 032054 012737 000002 001174 MOV #2, $TMPO :GET HEADER WORD NUMBER 

2244 032062 013737 032130 001176 MOV 196$,$TMP1 [GET FAILING BIT POSITION 

2245 032070 104344 EMT 344 

2246 032072 000415 BR 180$ 

2247 032074 160$: 

2249 ;CHECK FOR OTHER ERRORS © 

2250 032074 004737 040740 JSR PC,SECERR 360 cece FOR SECONDARY ERRORS 
032100 000405 BR 1768 :60 TO 170$ IF NO ERROR 7) 
032102 000240 ee ae NOP RETURN-HERE~IF ERROR 
032104 104000 EMT S ERROR # DEFINED BY SECERR SUBROUTINE 
032106 004736 JSR PC,a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
032110 000137 032126 / JMP 180$ :GO TO 180$ IF ERROR 

225) 032114 170$: 

2255 ;ADVANCE THE BIT POSITION AND FORMAT ee SECTOR IF NOT DONE 

2254 032114 006337 032130 ASL 190$ :SHIFT TO NEXT BIT POSITION 

2255 032120 001404 . BEQ 200$ TEXIT IF DONE 

256 032122 000137 031342 JMP 10$ [G0 DO NEXT SECTOR 

2258 032126 000465 180$: BR 2308 : JUMP OVER STORAGE 

3259 032130 000000 190$:  .WORD 0 ‘STORAGE FOR BIT POSITION 

2261 Pyeetekeeeaeeeeeeeeereee rete eee eeeKeeeeKeeeeeeeeeee teat eeeeetaee 

$56¢ s*REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER 

263 Siete eeeeeeeee eee eee ee eee eee eee eee AeA AR AAS 
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000240 
104000 
000137 


032206 
p000e: 


037360 


032302 


037722 
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HCE, SECOND HEADER WORD 


2208: 


2308: 


Oy ree 


a ¥ W 
#BUF ONE , RMBAO 
#WH,RMCS1O 
PC ,GENBUF 


PC, TSTPRP 
154130 


210% 


2108 


#WH!GO,RMCS10 
#PUTINK,R2 
#RMDA, (R2)+ 
#RMDC, (R2)4 
#RMOF .(R2)4 
#RMBA, (Re) 
#RMWC, (R2)+ 
WRMCS1,(R2)4 
#200, (R2)4 


PC PUT 
2208 
2308 


PC,TIMOUT 


BIT MODE 
3° nies at ONLY 
BUFFER A DRESS 
WRITE HEAD AND DATA COMMAND 
; SET UP THE BUFFER 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 

ZPACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE = 
:RECALIBRATE IF. SKI" OR “PIP IS SET 

7V 


RROR 
;ERROR # DEFINED BY TSTPRP SUBROUTINE 
3:60 TO 2108 IF ERROR 


:SET GO BIT 
; TABLE ADDRESS 


; TERMINATOR 

:60 eit “wie ye WITH PUT SUBROUTINE 
TO 2203 | fake ROR 

RETURN HERE. IF NERR OR 

:ERROR # DEFINED oe — SUBROUT INE 

:G0 TO 2308 IF ERRO 


;WAIT FOR TIME OUT 


SEQ 0144 


1 
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END OF SUB-PASS ROUTINE SEQ 0145 


1 -SBTTL END OF SUB-PASS ROUTINE 
g ;THIS 1S THE END OF SUB-PASS ROUTINE. THIS ROUTINE IS USED TO 
4 STERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AND 
5 sSELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES 
6 :T0 TEST, EXIT IS MADE TO 'SEOP’ ROUTINE. OTHERWISE, RETURN 
f [1S MADE TO 'READY’ ROUTINE. 
9 032302 000004 SEOSP: SCOPE 
10 032304 000240 NOP 
1 032306 013700 001464 MOV TSTQUE ,RO ;GET POINTER TO TSTQUE 
12 032312 062700 000002 ADD #2,R0 SADJUST POINTER 10 NeXT DEVICE 
13 032316 010037 001464 MOV RO, TSTQUE ;SAVE POINTER TO TSTQUE 
14 032322 005710 TST (Rb) ANY MORE DEVICES OR TEST ? 
15 032324 001402 BEQ i$ “BR IF No 
16 032326 000137 056756 JMP SHUT ;JUMP TO SHUT AND CHECK FOR CONTROL C 
17 032332 012737 001466 001464 1S: MOV #TSTQUE+2, TSTQUE s INITIALIZE POINTER TO FIRST DEVICE IN 
H TEST QUE TABLE 
20 .SBTTL END OF PASS ROUTINE 
SPARRO AAAAARAARAAAEEAAEE THETA AEAAAAAEAAARAEAEEARAEHEHAReHHeeeeTeeee 
: SINCREMENT THE PASS NUMBER (S$PASS) 
:*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT vrvry"’ 
S*WHERE XXX AND YYYYY ARE DECIMAL NUMBERS 
z*1F THERES A MONITOR GO 10 IT 
:*]F THERE ISN'T JUMP TO SHUT 
032340 SEOP: 
032340 000240 NOP 
032342 005037 001116 CLR STSTNM :: ZERO THE TEST NUMBER 
032346 005037 001206 CLR STIMES ;:ZERO THE NUMBER OF ITERATIONS 
032352 005237 001230 INC SPASS :INCREMENT THE PASS NUMBER 
032356 042737 100000 001230 BIC #100000, $PASS ::DON'T ALLOW A NEG. NUMBER 
2364 005327 DEC (PC)+ LOOP? 
032366 000001 SEOPCT: .wORD 1 
032370 003063 BGT SDOAGN rrYeSs 
032372 012737 MOV (PC)+,a(PC)¢ >;RESTORE COUNTER 
032374 000001 SENDCT: .WO 1 
032376 032366 SEOPCT 
032400 104401 032406 TYPE ,65$ ii TYPE ASCIZ STRING 
032404 000407 BR 648 ‘GET OVER THE ASCIZ 
37658: .ASCIZ <12><15>/END PASS #/ 
032424 643: 
032426 013746 001230 MOV SPASS,-(SP) £2 SAVE SPASS FOR TYPEOUT 
032430 104405 TYPDS 3:60 TYPE=-DECIMAL ASCII WITH SIGN 
032432 104401 032440 TYPE 67% i TYPE ASCIZ STRING 
032436 000421 BR 668 =GET OVER THE ASCIZ 
3:67$: .ASCIZ / TOTAL ERRORS SINCE LAST REPORT / 
032502 66S: 
032502 013746 001126 MOV SERTIL,-(SP) 7:SAVE SERTTL FOR TYPEOUT 
7: TOTAL NUMBER OF ERRORS 
032506 104405 TYPDS ::G0 TYPE--DECIMAL ASCI1] WITH SIGN 
032510 1044601 001217 TYPE SCRLF si: TYPE CARRIAGE RETURN, LINE FEED 
032514 005037 001126 CLR $ERTIL [CLEAR ERROR TOTAL 
032520 013700 000042 $GET42: MOV a#42,R0 >:GET MONITOR ADDRESS 


D1 
CZRMNAO RMOS/3/2 FCTNL TST 2. MACRO VO3.01 11-APR=BO 13:17:48 PAGE }$e1 


END OF PASS ROUT SEQ 0146 
032526 001405 BEQ SOOAGN 3;;BRANCH IF NO MONITOR 
§352 6 000005 ESET 7;CLEAR THE WORLD 
0325 004710 SENDAD: JSR PC, (RO) 3:60 TO MONITOR 
032532 000240 NOP 7;SAVE ROOM 
032534 000240 NOP 77 FOR 
032536 000240 NOP 37ACT11 
032540 SDOAGN: 

032540 000137 JMP a(PC)¢ 7 RETURN 

032542 056756 SRTNAD: .WORD SHUT 

032544 377 377 000 SENULL: ¢ HE -1,-1,0 SZNULL CHARACTER STRING 
- V 


21 


12 
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SUBROUTINE SEQ 0147 


» SBTTL SUBROUTINES 


, PARR eReeeeaeeeeeeeeeeeererereneeeateneeeeeeteeeneeteneeenereee 


*$BTTL ERROR TYPEOUT ROUTINE 


;*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
; #REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 


UNIT ~ ws TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER ARE 
: PRINTED. ON THE FIRST LINE; 
MESSAGE is ASSEMBLED, FORMATTED AND PRINTED ON 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 ERROR 
11 :#ONE OR MORE SUCCEEDING L 
12 .PAIRED LINES OF ERROR’ HEADERS AND ERROR DATA 
13 1 ARE PRINTED AFTER THE ERROR MESSAGE. 
15 032550 ERRTYP: 
16 032550 104414 SAVREG 
17 032552 032777 020000 146374 BIT #SW13,aSwR : INHIBIT TYPEQUTS?? 
18 032560 001402 BEQ 1$ NO! ! 
19 032562 000137 033300 21$ YES! ! 
20 = TYPE wit * WUMBER TEST NUMBER, ERROR NUMBER, AND PROGRAM COUNTER 
21 032566 104401 001217 i$: YPE  —_, $CRLF 
22 032572 104401 033314 TYPE *ERTYOO sTYPE ‘‘UNTA"’ 
23 032576 013746 001234 MOV $UNIT,-(SP) ::SAVE SUNIT FOR TYPEOUT 
::TYPE UNIT NUMBER 
032602 104403 TYPOS ::60 TYPE=-OCTAL ASCII 
032604 003 .BYTE 3 Si: TYPE 3 DIGIT(S) 
032605 000 “BYTE 0 :: SUPPRESS CEADING ZEROS 
24 032606 005037 033304 CLR TSTNMB ‘LOAD TEST NUMBER FOR 
25 032612 013737 001226 033304 MOV STESTN, TSTNMB 
26 032620 104401 033322 TYPE  ,ERTYOT :TYPE "'TST#’ 
27 032624 013746 033304 MOV TSTNMB,-(SP) | :;SAVE TSTNMB FOR TYPEOUT 
. :: TYPE TEST NUMBER 
032630 104403 TYPOS 7:G0 TYPE--OCTAL ASCII 
032632 003 .BYTE 3 ::TYPE 3 DIGIT(S) 
032633 000 ‘BYTE 0 7: SUPPRESS LEADING ZEROS 
28 032634 00 033306 CLR ERRNMB [LOAD ERROR NUMBER FOR 
29 032640 113737 001130 033306 MOVB SITEMB.ERRNMB ;TYPEOUT 
30 032646 001406 BEQ 2$ :SKIP IF NO, ERROR CALLED 
31 032650 104401 033332 TYPE SERTYO2 [TYPE “ERR 
32 932654 013746 033306 


MOV ERRNMB ,- (SP) 33 SAVE ERRNMB FOR TYPEOUT 
7: TYPE ERROR NUMBER 


032660 104403 TYPOS 7:60 ase tt ASCLi 
032662 003 .BYTE 3 >: TYPE 3 DIGIT(S) 
032663 000 ‘BYTE 0 SUPPRESS LEADING ZEROS 
33 032664 104401 033341 2s: TYPE ERTYO3 :TYPE ‘C= 
34 032670 013746 001132 MOV SERRPC,-(SP) | :;SAVE SERRPC FOR TYPEOUT 
:: TYPE PROGRAM COUNTER 
032674 1046403 TYPOS 7:60 TYPE--OCTAL ASCII 
032676 006 -BYTE 6 i: TYPE 6 DIGIT(S) 
032677 001 -BYTE 1 YPE LEADING ZEROS 
35 gGENERATE POINTER TO ERROR TABLE. ays # ERRO? NUMBER 1S 0 
36 032700 005737 033306 $$: TST ERRNMB :WAS AN ERROR CALLED? 
37 0327046 001575 BEQ 218 =NO!! 
@um, 38 032706 104401 001217 TYPE “SCRLF SYES-TYPE CRLF 
39 032712 105037 033312 CLRB = BOTFLG [CLEAR BOT FLAG 
40 032716 105037 033313 CLRB CHRCNT *CLEAR CHARACTER COUNTER 
41 032722 013700 033306 MOV ERRNMB,RO ‘RO POINTS TO FIRST OF 


68 03 5 032780 
032732 


$ 032740 
48 032742 
49 

50 032744 
51 032746 
52 032750 
53 032754 
54 032760 
55 032762 
56 032764 
57 032770 
58 032772 
59 032776 
60 033000 
61 033004 
62 033006 
63 033012 
64 033014 
65 033020 
66 033026 
67 033030 
68 033032 
69 033036 
70 033042 
71 033044 
72 033050 
73 033056 
74 033060 
75 033064 
76 033066 
77 033072 
78 033076 
79 033102 
80 033104 
81 033106 
82 033114 
83 033116 
84 033120 
85 033124 
86 033126 
87 033132 
88 033156 
89 033142 
90 033146 
91 033152 
92 033156 
93 033160 
o 033162 
96 033162 
97 033162 
98 033166 
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S=sslso 


TST 2 


001570 


000012 
000011 
033313 
000007 
033313 
000040 


033310 
000100 


033310 


000002 
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ASL RO ;FOUR ENTRIES IN ERROR 

ASL RO ; TABLE 

ASL RO 

ADD #SERRTB-8. ,RO 

MOV (RO) ,R1 :RI POINTS TO ERROR MESSAGE 


MOV (R1)+,R2 
BEQ 12 
MOV R2,11$ 3 
CLR BOTADR 

5$: MOVB (R2)4+,R3 
BEQ 10% 
CMPB ACR,RS 
BNE 6$ 
CLRB aoa 

6$: CMPB ALF RS : 
BEQ 5$ 
CMPB #HT RS 
BNE 8$ 

7$: INCB CHRCNT 

033313 BITB #7, CHRCNT 

BNE 7$ 
BR 9$ 

8$: INCB CHRCNT 
CMPB #* RS 


9$ 
MOV R2,BOTADR 
033313 9S: CMPB "peau 


MOV BOTADR ,R4 
90$ 
TYPE - SCRLF 


CLRB CHRCNT 
MOV prs -Re 


90$: -(R4) 
033312 MOVB #-1,BOTFLG 


TSTB BOTFLG 
4% 
TYPE , SCRLF 


CLRB BOTFLG 
CLRB CHRCNT 


MOV BOTADR,R2 
MOV R2,11 
MOVB #* ,-(R2) 
TSTB (R2)+¢ 
BR 5$ 
128: 
qiree ERROR HEADER AND ERROR DATA 
MOV 2(RO) RI 
BEQ 21% 


BRANCH IF NO ERROR MESSAGE 


sR2=ADDRESS OF oS aett STRING 
;BRANCH IF END OF MESSAGE 
;LOAD ADDRESS OF STRING 
CLEAR BOT ADDRESS 

:END OF STRING?? 


CARRIAGE RETURN? ? 
7 YES-CLEAR CHAR COUNT 


GET NEXT CHARACTER 
LINE FEED?? 


:YES-GET NEXT CHARACTER 
=e TAB?? 


‘ADJUST CHARACTER COUNT 


4 net: th ad ChARACTER COUNT 
‘oot Ce?? 


O!! 
: SAVE yr? OF SPACE 
ZEND, OF LINE? 


GET ADDRESS OF LAST SPACE 
:BRANCH IF SPACE DETECTED 
: TYPE CRLF 

:CLEAR CHARACTER COUNT 


:SET UP R2 FOR TESTING 


;REPLACE eee 
4 BOT FLAG 

TYPE ERROR MESSAGE STRING 
STRING ADDRESS GOES HERE 
zAS STRING TRUNCATED?? 


:YES-TYPE CRLF 
CLEAR BOT FL 


AG 
CLEAR CHARACTER COUNT 
SETUP R2 FOR TESTING 
SETUP 11$ FOR TYPING 


sRESTORE SPACE 
sRESTORE R2 
TYPE REST OF STRING 


;R1 POINTS TO ERROR HEADER TABLE 
;BRANCH IF NO HEADER 


SEQ 0148 


fi 
mf 


WA AA IAI RNIN = 4 OOOO OCOCOOCOO 


SOoOCoOoO SGOCSCOO GOOCOCCOCOCOOCOCOCOOOCOOCOCOOOOOOOCOOOO CCOCOOO 


a el el el el el ed ed ed 
WAN WWII WII Ww 


SEEKS 
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T SEQ 0149 

170 1044601 001217 TYPE , SCRLF 3; (ASSUME NO DATA) 

174 016002 000004 MOV 4(RO).R Re POINTS TO DATA ADDRESS TABLE 

200 016003 000006 MOV 6(RO),R 3R3 POINTS TO FORMAT TABLE 

206 012137 033214 14%: MOV (R1)4+,15$ ;PUT HEADER ADDRESS FOR TYPE 

210 001433 BEQ 21$ sBRANCH IF END OF HEADERS 
; (ASSUME END OF DATA) 

212 104401 TYPE 

214 000000 15$: WORD 0 ;HEADER ADDRESS GOES HERE 

216 104401 001217 TYPE ,SCRLF 

222 005702 TST R2 ;DATA WITH HEADER?? 

224 001767 BEQ 4% sNO!! 

226 012204 MOV (R2)4*,RG 3R4 POINTS TO DATA ADDRESS 

230 012305 MOV (R3)4+,R5 7R5 POINTS TO FORMAT 

232 105725 16$: TSTB (R5)¢ WHAT KIND OF DATA?? 

234 100407 BM] 18$ BINARY 

236 001403 BEQ $ sOCTAL 

240 013446 MOV @(R4)+,=(SP) DECIMAL 

242 104405 TYPDS 

244 000405 BR 19% 

246 013446 17$: MOV a(R4)+,-(SP) 

250 104402 TYPOC 

252 000402 oh 19$ 

254 013446 188: MOV @(R4)+,-(SP) 

256 104406 TYPBN 

260 005714 19$: (R4) ;MORE DATA?? 

262 001403 BEQ 208 sNO!! 

264 104401 033347 TYPE JERTYOS sYES-TYPE 2 SPACES 

270 000760 BR 16$ AND CONTINUE 

272 104401 001217 208: TYPE ,SCRLF ;TYPE ONE BLANK LINE 

276 000742 Re 14% ;BEFORE NEXT HEADER 

300 104415 218 RESREG 

302 207 PC 

304 000 TSTNMB: .WORD 0 TEST NUMBER 

306 000000 ERRNMB: .WORD 0 ERROR NUMBER 

310 000 BOTADR: .WORD 0 :BEGINNING OF TEXT ADDRESS 

312 000 BOTFLG: .BYTE 0 :BOT FLA 

313 000 CHRCNT: .BYTE 0 CHARACTER COUNT 

314 125 116 111 ERTYOO: .ASCIZ @UNIT#O 

322 054 040 126 ERTYO1: .ASCIZ a, TEST#a 

332 054 040 105 ERTYO2: .ASCIZ @, ERR#O 

341 054 040 120 ERTYO3: .ASCIZ @, PC=a 

347 040 040 000 yh -ASCIZ @8 @ 

EV 
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} .SBTTL TEST PREPARATION MODULE 
3 ; THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A TEST, 
4 ; REPORTING AN ERROR TO THE USER IF AN ERROR IS DETECTED. THE USER 
5 ; SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES 
$ 3 USING SUSROUTINES. 
8 s CALL: 
9 ; J PC, TSTPRP 
10 ; .WORD NNNNNN TASK/VERIFY DESCRIPTOR 
11 ; BR ?? RETURN HERE IF NO ERROR 
12 ; NOP RETURN HERE IF ERROR 
13 ; ERROR ERROR DEFINED BY MODULE 
15 STASK/VERIFY DESCRIPTOR 
16 ; 11 SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE 
18 : BIT 14 = 1 CLEAR CONTROLLER AND SELECT DEVICE 
19 : BIT 13 (RESERVED FOR DRIVE CLEAR) 
iY 3 BIT 12 = 1 PACK ACKNOWLEDGE IF VOILUME NOT VALID 
22 : BIT 11 = 1 RECALIBRATE IF POSITIONING IN PROGRESS 
23 : BIT 10 
24 Z BIT 9 
25 5 eee en ee 
26 : BIT 8 
27 ; BIT 7 
$8 2 BIT 6 = 1 VERIFY CONTROLLER CLEAR OPERATION 
30 : BIT 5 (RESERVED FOR DRIVE CLEAR) 
31 : BIT 4 =1 VERIFY PACK ACKNOWLEDGE 
3 ; BlT 3 = 1 VERIFY RECALIBRATION 
34 : BIT 2 
35 : BIT 1 
3 : BIT 0 
38 033352 TSTPRP: 
40 ySTORE TASK DESCRIPTOR AND CLEAR USER'S ERRCR CALL 
41 033352 017637 000000 034272 MOV a(SP),500$ ZSTORE DESCRIPTO 
42 033360 062716 000006 ADD #6, (SP) :MOVE SP TO USERS ERROR CALL 
43 033364 105076 000000 CLRB Ss a SP) ZCLEAR ERROR C 
“< 033370 162716 000004 SUB #4, (SP) [MOVE SP TO ay ERROR RETURN 
46 033374 004737 037024 JSR PC,GETSTS ;SETUP TO READ ALL REGISTERS 
47 033400 004737 037110 JSR C,GET 'GET RMER2 
48 033404 000411 BR 15¢ ‘BR IF NO ERROR DETECTED 
49 033406 000401 BR 10$ [GET OVER ERROR NUMBER 
50 033410 000000 .wORD 0 sERROR DEFINED BY Get 4 SUBROUTINE 
51 033412 062716 000004 10$: ADD #4, (SP) XFER ERROR TO USER 
52 033416 113776 033410 000000 MOVB =: 10$-2,, a( SP) [GET ERROR NUMBER. 
33 033424 000137 034262 JMP 4008 
55 033430 013737 001376 034274 15%: MOV RMER21,505$ :GET RMER2 AND SAVE FOR LATER 
29 PL eeeeteneeerereereneeeteeeteseeeteeeeeeeeeneeeeeeeeteeneteeeenet 
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TEST PREPARATION MODULE SEQ 0151 
58 ;SELECT DEVICE AND VERIFY DEVICE AVAILABLE IF BIT 15 SET IN TASK 
59 033436 005737 034272 1ST 500$ sSELECT DEVICE?? 

60 033442 100014 BPL 30$ NO! ! 

62 033444 004737 045012 JSR PC ,DEVSEL :G0 SELECT DEVICE 

63 033450 000411 BR 30$ =NO ERROR = CONTINUE 

64 033452 000401 BR 20$ 

65 033454 000000 “WORD 0 ;ERROR NUMBER FROM DEVSEL 
66 033456 062716 000004 20$: ADD #4, (SP) ; TRANSFER ERROR TO USER 

67 033462 113776 033454 000000 MOVB 20$-2,a(SP) 

68 033470 000137 034262 JMP 400% 

70 SUH ee eee eee eee eee eee eee eee eee KAeeeeeteeteeeeTeTeee 
71 “CLEAR CONTROLLER IF BIT 14 IS SET IN TASK 

72 033474 80s: 

73 033474 032737 040000 034272 BIT #B1T14,500$ ZCLEAR CONTROLLER?? 

ie 033502 001451 BEQ 120$ NO! ! 

76 033504 004737 046464 JSR PC,CNTCLR 3GO CLEAR CONTROLLER 

77 033510 000411 BR 60$ :CONTINUE = NO ERROR 

78 033512 000401 BR 50$ 

79 033514 000000 40$: » WORD 0 sERROR NUMBER FROM CNTCLR 
80 033516 062716 000004 50$: ADD #4, (SP) ; TRANSFER ERROR TO USER 

81 033522 113776 033514 000000 MOVB 40$,a(SP) 

82 033530 000137 034262 JMP 400$ 

84 Pee eeeeeeeeeeeeee eee eee eee eee eee eee eee Ree eee Tee ee 
85 ;VERIFY CONTROLLER CLEAR IF BIT6 SET IN TASK 

B6 033534 60$: 

87 033534 032737 000100 034272 BIT #8116,500$ SVERIFY?? 

88 033542 001431 BEQ 120$ =NO! ! 

90 033544 004737 037110 JSR PC,GET 360 GET STATUS 

91 033550 000411 BR 90$ sNO ERROR GETTING STATUS 
92 033552 000401 BR 80$ 

93 033554 000000 70$: “WORD 0 ZERROR FROM GETTING STATUS 
94 033556 062716 000004 80$: ADD #4, (SP) ; TRANSFER ERROR TO USER 
95 033562 113776 033554 000000 MOVB 70, a( SP) 

% 033570 000137 034262 JMP 400% 

98 033574 004737 046602 90$: JSR PC,CLRSTS 3GO VERIFY STATUS CLEAR 

99 033600 000412 BR 126$ [NO ERROR IN CLEAR 

100 033602 000401 BR 110$ 
10% 033604 000000 100$: ~ WORD 0 sERROR IN STATUS CLEAR 

102 033606 005726 110$: TST (SP)+ ;STRIP RETURN ADDRESS TO 
103 033610 062716 000004 ADD #4, (SP) ; SUBROUTINE AND TRANSFER 
104 033614 113776 033604 000000 MOVB =: 100$,a( SP) ‘ERROR TO USER 

105 033622 000137 034262 JMP 400% 

107 PL eeetereeetaeeeeerereteeeteteeeeeeeeeeeaeeeeeeteneeseneeereneees 
108 sEXECUTE PACK ACKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME IS 
109 :NOT VALID 

110 033626 1208: 

111 033626 032737 010000 034272 BIT #B1112,500$ :PACK ACKNOWLEDGE ?? 

12 033634 001503 BEQ 2408 NO! ! 

114 033636 004737 037110 JSR PC GET 
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032737 
001427 


004737 


1 
113776 
000507 


032737 
001505 


009000 


TST 2 
E 


000004 
033646 
034262 
000100 


001510 


037360 


000004 
033734 


037722 


000020 


037110 


000004 
033776 


047462 


000004 
034024 


004000 


037110 
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000000 


001346 


000000 


034272 


000000 


000000 


034272 


130$: 
1408: 


150$: 


180$: 


JSR 


150% 

1408 

U 

#4, (SP) 
136$,a(SP) 
400$ 
#VV,RMDSI 
2408 


MEDE 


NB 
#PAKACK!GO,RMCS10 


#RMCS1, PUTINX 
#200, PUTINX*1 
PC PUT 

186$ 

1708 

0 


#4, (SP) 
160$,a(SP) 
400$ 


PC,TIMOUT 


:NO ERROR GETTING RMDS 


; TRANSFER ERROR TO USER 


71S VOLUME VALID?? 
sves!! 


CLEAR MEDIA ENABLE 
;LOAD PACK ACK COMMAND 
SETUP REGISTER INDEX TABLE 


GO WRITE COMMAND 
NO ERROR LOADING REGISTER 


ERROR FROM PUT SUB 
; TRANSFER ERROR TO USER 


WAIT FOR COMMAND TO COMPLETE 


SRR RAHAT ETEK eeneeneeeee 


NOWLEDGE IF #BIT4 SET IN TASK 


[VERIFY PACK ACK 
BIT 


BEQ 


#8114,500$ 
2408 


PC,ACKSTS 
240$ 

230% 
(SP)¢+ 


#4, (SP) 
220$,a(SP) 
400$ 


o 


:VERIFY PACK ACKNOWLEDGE ?? 
sNO!! 


:G0 GET STATUS 
:NO ERROR GETTING STATUS 


sERROR FROM GET SUB 
; TRANSFER ERROR TO USER 


360 CHECK ACKNOWLEDGE 
NO ERROR 


PACK ACKNOWLEDGE ERROR 
:STRIP RETURN TO SUB AND 
; TRANSFER ERROR TO USER 


'WEABRBEAARAALASAASAARAALASLASLESEASESER ERE ESE SEER ERE R RRR R SERRE RRR RES ES 


:RECALIBRATE DRIVE If BIT 11 IS SET IN TASK AND “'SKI'' IS SET 


0 
2408 


2508: 


B 
- WORD 


‘PIP’’ IS ACTIVE. 


#81111,500% 
410% 


PC GET 
270% 
260$ 
0 


;RECALIBRATE?? 
sNO!! 


:G0 GET RMDS 
NO ERROR GETTING RMDS 


ERROR FROM GET SUB 


SEQ 0152 


é 
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172 034066 Segre 000004 
173 034072 113776 034064 
ss 034100 000470 

176 034102 032737 040000 
177 034110 001004 

178 034112 032737 020000 
te 034120 001462 

181 034122 012737 000007 
182 034130 112737 000000 
183 034136 112737 000200 
184 034144 004737 037360 
185 034150 000410 

186 034152 000401 

187 034154 000000 

188 034156 062716 000004 
189 034162 113776 034154 
~~ 034170 000434 

+54 034172 004737 037722 
194 

195 

196 034176 032737 000010 
i 034204 001430 

199 034206 004737 037110 
200 034212 000410 

201 034214 000401 

202 034216 000000 

203 034220 062716 000004 
204 034224 1135776 034216 
205 034252 000415 

207 034234 004737 050256 
208 034240 000412 

209 034242 000401 

210 034244 000000 

211 034246 005726 

212 034250 062716 000004 
213 034254 115776 034244 
214 034262 162716 000002 
215 0342 000240 

$18 034270 000207 

218 034272 000000 

344 034274 000000 
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2608: ADD #4, (SP) ; TRANSFER ERROR TO USER 
000000 MOVB = 250$,a( SP) 
BR 4008 
034274 270$: BIT #SK1,505$ sWAS SKI SET ? 
BNE 2808 :YES, GO RECALIBRATE 
001346 BIT #PIP,RMDSI ‘IS PIP ACTIVE?? 
BEQ 410$ NO! ! 
001410 2808: Mov #RECAL'GO,RMCS10 sLOAD RECALIBRATE COMMAND 
001551 MOVB #RMCST,PUTINX ;AND REGISTER INDEX 
001552 MOVB #200,PUTINX+1 
JSR PC, PUT :G0 ISSUE RECALIBRATE 
BR 306$ =NO ERROR 
BR 290$ 
.WORD 0 ZERROR IN REGISTER TRANSFER 
2908: ADD #4, (SP) : TRANSFER ERROR TO USER 
000000 MOVB 290$-2,a(SP) 
BR 400$ 
3008: JSR PC,TIMOUT ;WAIT FOR COMPLETION 
SU eeeeeeeeeaeeekeeeeeeeeeeee eee neeeeeeeeeeteKeeeeeteetetteneeee 
[VERIFY RECALIBRATE If BIT 3 SET IN TASK 
034272 BIT #8113,500$ :VERIFY RECALIBRATE?? 
BEQ 410% sNO!! 
JSR PC GET :G0 GE* STATUS 
BR 3308 [NO ERROR GETTING STATUS 
3108: . WORD 0 sERROR FROM GET 
3208: ADD #4, (SP) ; TRANSFER ERROR TO USER 
000000 MOVB 3108, a(SP) 
BR 400$ 
330$: JSR PC,RCLSTS :GO CHECK RECALIBRATE 
BR 4108 :NO ERROR DURING RECALIBRATE 
340$:  .WORD 0 SERROR DURING RECALIBRATE 
350$: TST (SP)+ ‘STRIP RETURN TO SUB AND 
ADD #4, (SP) ; TRANSFER ERROR TO USER 
000000 MOVB 340$,a(SP) 
400$: SUB #2, (SP) s;MOVE SP BACK BEFORE ERROR 
410$: NOP 
RTS PC :RETURN TO USER 
500$: .WORD 0 : TASK/VERIFY DESCRIPTOR 
505$: ~ WORD 0 sCONTAINS RMER2 


CZRMNAO ay th FCTNL TST 2 
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034276 


034320 000137 


034324 010046 


4 
034346 103370 


034350 012737 


000006 
000000 
000006 


001510 
035572 


001410 101206 
000002 
000046 


000003 036210 
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-SBTTL BAD SECTOR MODULE 


;THE MODULE IS INTENDED TO BE CALLED et TO CALLING THE BUFFER 
;GENERATOR SUBROUTINE, AND PRESERVES THE ‘PUT BUFFER’ iy THAT THE 
eeReT one ONLY BE FILLED ONCE FOR THE EXECUTION OF A FORMAT 


THE MODULE -¥ry TO THE CALLING TEST WITH THE APPROVED A! ASSIGNED 
SECTOR IN THE PUT BUFFER AND ALSO IN LOCATIONS “'ASNDA'' A ASNDC' 
:50 THAT A REFERENCE 1S AVAILABLE TO THE TEST OUTSIDE OF THE PUT BUFFER. 


THE BAD SECTOR MODULE PERFORMS TWO x FUNCTIONS: 

(1) RECOVER THE BAD SECTOR FILES A 

(2) APPROVE THE USAGE OF A SECTOR BASED ON INFORMATION IN 
THE BAD SECTOR FILES OR ASSIGN A NEW SECTOR IF THE ONE 
ELECTED IS NOT AVAILABLE FOR USE. 


a te pe ¥ BY THE MODULE INCLUDES: 
(1) .RMDCO = THE DESIRED CYLINDER 

(2) “RMDAO = THE TRACK AND SECTOR’ ADDRESS, 

(3) .RMWCO = THE WORD COUNT, 

(4) .RMCS10 - THE COMMAND, 

(5) .RMOFO - THE FORMAT MODE 


JSR PC ,BADSCT CALL SUBROUTINE 

BR 77? RETURN HERE IF NO ERR 

TYPE » MESSAGE RETURN HERE IF THE BAD SECTOR FILE 
: CANNOT BE RECOVERED. 

ERROR N ;THE EMT OFFSET NUMBER "N° IS DEFINED 
:BY BAD SECTOR MODULE. 

ADSCT 
ADD #6, (SP) :CLEAR ERROR NUMBER IN USER'S 
CLRB a(SP) ERROR CALL. 


SUB #6, (SP) 


sTEST “MEDIA ENABLE’’ TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES 
; HAVE a ee 


Ist EDENB ;HAS BAD SECTOR FILES BEEN RECOVERED ? 

JMP 3008 :YES, ane SECTOR FILE 1S AVAILABLE 
:RECOVER THE MANUFACTURES / USERS BAD SECTOR FILE FROM CYLINDER = 822., 
[TRACK = LAST TRACK (RMO2/3 = 4 AND RMOS = 18.). ALSO, SAVE THE USER'S 
jput BUFFER 

MOV RO,-(SP) : gPUSH RO ON STACK 

CLR RO >START WITH RMCS1 
10$: MOV PUTBUF (RO), BUFFER(RO) 

ADD #2,RO0 : ADVANCE 10 NEXT BUFFER POSITION 

CMP #46, RO ZEND OF BUFFER 

BHIS 108 “NO ! 


SET RETRY COUNT AND LOAD PUT BUFFER AND REGISTER INDEX TABLE 
[SETUP PARAMETERS TO READ SKIP SECTOR FILE FIRST (3 SECTORS) 
MOV #3,500$ ;RETRY COUNT 


SEQ 0154 
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SEQ 0155 


57 034356 012737 001466 001444 MOV #822. ,RMDCO :DESIRED CYLINDER = 822. 

58 034364 013737 001332 001416 MOV LSTRK,RMDAO :STARTING LAST TRACK, SECTOR = 0 
59 034372 012737 ‘ 177376 001412 MOV #-258.,RMWCO 32 4 236. WORDS (2°S COMP) 

60 034400 012737 010000 001442 MOV #FMT16,RMOFO 316 BIT FORMAT 

61 034406 012737 103216 001414 MOV #MFGFIL,RMBAO :POINT TO MANUFACTURES FILE BUFFER 
63 034414 012700 001551 MOV #PUTINX,RO :RO POINTS TO REGISTER INDEX TABLE 
64 034420 112720 000006 MOVB  #RMDA, (RO)+ 

65 034424 112720 000034 MOVB  #RMDC, (RO)+ 

66 034430 112720 000002 MOVB = #RMWC. (RO) + 

67 034434 112720 000032 MOVB  #RMOF.(RO)* 

68 034440 112720 000004 MOVB  #RMBA.(RO)+ 

69 034444 112720 000000 MOVB  #RMCS1,(RO)+ 

70 034450 112720 000200 MOVB #200, (RO) + 

al 034454 012600 MOV (SP)+,RO :;POP STACK INTO RO 

73 ;SET GET INDEX TABLE FOR READING STATUS 

74 034456 30s: 

75 034456 004737 037024 JSR PC,GETSTS ;SETUP GET INDEX REGISTER FOR STATUS 
76 034462 004737 037110 JSR PC GET [GET REGISTERS 

77 034466 000411 BR 30¢ :BR IF NO ERROR 

78 034470 000401 BR 25$ [JUMP OVER ERROR NUMBER 

79 034472 000000 ~ WORD sERROR DEFINED BY GET SUB 

80 034474 062716 000006 258: ADD #6, (SP) sXFER ERROR TO USER AND 

81 034500 113776 034472 000000 MOVB =. 25$-2,a( SP) [GET ERROR NUMBER. 

82 034506 000137 035272 JMP 215$ 

84 034512 01373? 001376 036222 30%: Mov RMER21,550$ :GET RMER2 AND SAVE FOR LATER 

86 ZCLEAR THE pPEvice USING DRIVE CLEAR COMMAND 

87 034520 012737 000011 001410 DRVCLR!GO,RMCS10 ;LOAD COMMAND IN PUT BUFFER 
88 034526 004737 037360 OSR Pt PUT sOUTPUT COMMAND 

89 034532 000411 BR 45$ [RETURN HERE IF NO ERROR 

90 034534 000401 BR 40$ :GET AROUND ERROR # 

91 034536 000000 35$: ~ WORD 0 sERROR # GOES HERE 

92 034540 062716 000006 40$: ADD #6, (SP) ;MOVE SP TO USERS ERROR CALL 

93 034544 113774 034536 000000 MOVB 358 a(SP) ;MOVE ERROR NUMBER TO USER 

9% 034552 000137 035272 JMP 15$ 

96 034556 004737 037722 45$: JSR PC, TIMOUT :WAIT FOR COMPLETION 

97 034562 004737 037110 JSR PC GET 760 GET STATUS 

98 034566 000411 BR 60$ :RETURN HERE IF NO ERROR 

99 034570 000401 BR 55$ ‘GET AROUND ERROR # 

100 034572 000000 508: . WORD SERROR # GOES HERE 

101 034574 062716 000006 558: ADD #6, (SP) MOVE SP TO ees ERROR CALL 

102 034600 113776 034572 000000 MOVB 50$,a(SP) :MOVE ERROR # TO USERS ERROR CALL 
103 034606 000137 035272 JMP 215$ 
105 034612 004737 052020 60$: JSR PC ,DRVSTS :G0 VERIFY DRIVE CLEAR COMMAND 
106 034616 000412 BR 75$ ‘RETURN HERE IF NO ERROR 

107 034620 000401 BR 70$ [GET AROUND ERRO 

108 034622 000000 65$: .WORD 0 TERROR # GOES HER RE 

109 034624 005726 70$:  =TST (sp) [STRIP RETURN TO SUBROUTINE 

110 034626 062716 000006 ADD (SP) :MOVE SP TO USERS ERROR CALL 

111 034632 113776 034622 000000 MOVB o36 a(SP) sMOVE ERROR # TO USER CALL 

112 034640 000137 035272 JMP 15¢ 





_ CZRMNAO ty td FCTNL TST 2 


_ BAD SECTOR MOD 


66 
34670 
34672 


Ww 
uw 


ee eee eee ee ee eee 
Ww 
oS 


NSAAARAOAACO OMNI NWIUNH FKL LEE EWAN WWW no pono nononyehy 2 SS 
SCODWNG UF WN $0 OO-WO UF BN OOOO UE WR OO OOO UI EWWPR | O OOO UFWN SOD ONOusr 
o 
Ww 
ys 
~ 
o 
~ 


oooososs Pal~t—t—-1 1-1-1 —- Bt 1-1-1 st 


000137 


032737 


001452 
012737 


000137 
004737 


000137 


035272 


037722 
037110 


000006 
034726 
035272 


047462 


000006 
034756 
035272 


040000 
020000 


N 12 
MACRO V03.01 11-APR-80 13:17:48 PAGE 16-2 


SEQ 0156 
pA SSuE A PACK ACKNOWLEDGE IF VOLUME VALID IS RESET 
001346 BIT #VV RMDSI :1S vv RESET ?? 
BNE 120$ =NO !! 
001410 MOV #PACACK !GO,RMCS10 ;LOAD COMMAND 
JSR PC, PUT PUT COMMAND TO DRIVE 
BR 90$ SRETURN HERE IF aN, OUTPUT ERROR 
BR 85$ [SET AROUND ERRO 
80S: .WORD 0 ‘ERROR # GOES MERE. 
85$: ADD #6, (SP) :MOVE SP TO USERS ERROR CALL 
000000 MOVB 80$,a(SP) ‘MOVE ERROR # TO ERROR CALL 
JMP 215$ 
90$: JSR PC, TIMOUT :WAIT FOR COMPLETION 
JSR PC GET :GO GET STATUS FOR PACK ACK 
BR 105$ :RETURN HERE IF NO ERROR 
BR 100$ ‘GET AROUND ERROR # 
95$: WORD TERROR # GOES HERE 
100$: ADD #6, (SP) “MOVE SP TO USERS ERROR CALL 
000000 MOVB ©: 95$,, a( SP) ‘MOVE ERROR # TO CALL 
JMP 215$ 
105$: JSR PC, ACKSTS :G0 VERIFY ACKNOWLEDGE STATUS 
BR 120$ :RETURN HERE IF NO ERROR 
BR 115$ ‘GET AROUND ERROR # 
110$: .WORD 0 TERROR # GOES HERE 
115$: TST (SP)+ *STRIP RETURN TO SUBROUT INE 
ADD #6, (SP) [MOVE SP TO USERS ERROR CAL 
000000 MOVB «110%, a(SP) :MOVE ERROR # TO USERS ERROR CALL 
JMP 215$ 
{RECALIBRATE THE DRIVE IF "'SKI'' OR "PIP IS SET 
036222 BIT #SK1,550$ ;WAS SKI SET ? 
BNE 125$ YES, GO RECALIBRATE 
001346 BIT #PIP,RMDSI <1$ PIP SET ? 
BEQ 165$ NO 
001410 125%: MOV #RECAL!GO, RMCS10 :LOAD RECALIBRATE COMMAND 
JSR C PUT :PUT THE RECAL COMMAND 
BR 158s :RETURN HERE IF NO ERROR 
BR 130$ :GET AROUND E 
WORD ZERROR # GOES HERE 
130$: ADD #6, (SP) MOVE SP TO USERS ERROR CALL 
000000 MOVB 130$-2,a(SP) | :MOVE ERROR # TO USERS CALL 
JMP 215$ 
135$: JSR PC, TIMOUT :WAIT FOR RECALIBRATE TO COMPLETE 
JSR PC GET 'GO GET RECAL STATUS 
BR 156$ sRETURN HERE IF NO ERROR 
BR 145$ :GET AROUND 
140$:  .WORD 0 SERROR # GOES HERE 
145$: ADD #6, (SP) MOVE SP TO USERS ERROR CALL 
000000 NOVB abs ,a¢sP) [MOVE ERROR TO USERS CALL 
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8 
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eee on hepae FCTNL 


D SECTOR MODULE 
171 035112 
172 Oseti6 
173 b32! 0 
174 035122 
175 035124 
176 035126 
177 035132 
178 035140 
179 
180 
181 035144 
182 035144 
183 035152 
184 035156 
185 035160 
186 035162 
187 035164 
188 035170 
189 035176 
190 
191 035202 
192 035206 
193 035212 
194 035214 
195 035216 
196 035220 
197 035224 
198 035232 
199 
200 035236 
201 035242 
202 035244 
203 035246 
204 035250 
205 035252 
206 035256 
sor 035264 
209 035270 
210 
211 
212 
213 
214 035272 
215 035272 
216 035276 
217 
218 
219 035300 
220 035300 
221 035304 
$56 035310 
224 035312 
$52 035316 
26 
227 035322 


004737 
2 


000006 
035216 
038979 


052622 


000006 
035246 
035272 


036210 
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1508: JSR PC RCLSTS 60 VERIFY RECALIBRATE STATUS 
BR 165$ :RETURN HERE IF NO ERROR 
BR 160$ GET AROUND ERROR # 
155$: .WORD 0 TERROR # GOES HERE 
1608: TST (SP)+ ;STRIP RETURN TO SUBROUTINE 
ADD #6, (SP) “MOVE SP TO USERS ERROR CALL 
000000 Move 155$,a(sP) [MOVE ERROR # TO USERS CALL 
JMP 2158 
{READ THE SECTOR IDENTIFIED BY RMDAO, INCLUDING HEADER AND DATA 


001410 MOV WRH'GO,RMCS10 ;LOAD READ HEADER AND DATA COMMAND 
JSR PC PUT :PUT COMMAND 
BR 180$ SRETURN HERE IF NO ERROR 
BR 175$ [GET AROUND ERROR 
170$:  .WORD TERROR # GOES HER e 
175$: ADD #6, (SP) ‘MOVE SP TO USERS ERROR CALL 
000000 MOVE _-170$,a(SP) ‘MOVE ERROR # TO USERS ERROR CALL 
JMP 215$ 
180$: JSR PC, TIMOUT ;WAIT FOR READ OPERATION TO COMPLETE 
JSR C.GET 760 GET STATUS FOR READ OPERATION 
BR 195$ SRETURN HERE IF NO ERROR 
BR 190$ [GET AROUND ERROR ¢ 
185$: . WORD 0 TERROR # GOES HERE 
190$: ADD #6, (SP) [MOVE SP TO USERS ERROR CALL 
000000 MOVB  185$,a(SP) [MOVE ERROR # TO CALL 
JMP 215$ 
195$: JSR PC, DTASTS :GO VERIFY RESULTS OF READ OPERATION 
BR 216 [RETURN HERE IF NO ERROR 
BR 205$ [GET AROUND ERROR # 
200$: .WORD 0 TERROR # GOES HERE 
205$: TST (SP)¢ ;STRIP_RETURN ADDRESS 10 SUBROUT INE 
ADD #6, (SP) VE SP TO USERS ERROR CAL 
000000 MOVB 200$,a(SP) “MOVE ERROR # TO USERS cmt 
JMP 215$ 
2108: BR 2408 ZNO ERRORS DETECTED 


peeeneneeeeeeeerereeerereeeeeeeeeeeAeeAeeeeeReeeeeNENe TERE eE TEES 
TAN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SECTOR FILE. 
hy SECTOR WILL BE RETRIED IF POSSIBLE. 


215 
DEC 500$ :YES, DECREMENT RETRY COUNT AND 


BPL 2258 [RETRY IF COUNT NOT NEGATIVE. 
sine RETRY COUNT HAS EXPIRED - SEE IF THE ERROR IS MEDIA RELATED 
"Mov RMER2Z1,-(SP) GET ER2 
BIC #BSE, (SP)¢ SANY NON-MEDIA ERRORS ? 
BNE 2308 ‘YES, EXIT AND REPORT ERROR ON RETURN 


MOV RMERT1,-(SP) -GET ERI 
BIC BDCK!MCRC!HCE !FER:ECH. (SP) 
SARE THERE * ANY NON-MEDIA ERRORS ? 


BNE 2508 :YES, EXIT AND REPORT ERROR ON RETURN 


1 
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BAD SECTOR MODUL SEQ 0158 
28 
38 :THE ERRORS DETECTED WHILE TRYING TO RECOVER THE BAD SECTOR FILE ARE 
330 :DUE TO THE MEDIA. SEE IF THE BAD SECTOR FILE CAN BE RECOVERED FROM 
58 SANOTHER AREA ON THE LAST TRACK 
33 0353246 062737 000002 001416 ADD #2, RMDAO ZADVANCE SECTOR ADDRESS BY 2 
$8 039332 139781 000012 001416 CAPS 410. RMD AO :QUIT TF ALL MFG SECTORS HAVE BEEN 
3 035342 122737 000040 001416 CMPB £33. ,RMDAO TQUIT IF ALL USER SECTORS HAVE BEEN 
237 035350 001407 BEQ 2308 S TRIED. 
$39 035352 012737 000003 036210 MOV #3,5008 ZREINSTATE RETRY COUNT FOR THIS SECTOR 
240 035360 162716 000006 225%: SUB #6, (SP) :MOVE SP BACK TO NO ERROR 
261 035366 000137 034456 MP 208 TRETRY THE READ OPERATION 
mk -THE BAD SECTOR FILE CANNOT BE READ 
244 035370 2308: 
245 035370 900240 NOP 
246 035372 032777 020000 143554 BIT #SW13,aSwR ; INHIBIT MESSAGE ? 
247 035400 001002 BNE 2358 “YES 
248 035402 162716 000004 SUB #4, (SP) [MOVE SP TO ERROR RETURN 
249 035406 000137 036204 2358:  JMP 4108 :GO TO MODULE EXIT 
251 ;THE SECTOR WAS RECOVERED WITHOUT ERROR - READ THE USER FILE IF 
252 “THIS 1S THE MGF FILE OR ELSE DONE. 
253 035412 2408: 
254 035412 022737 104224 001414 CMP MUSRFIL,RMBAO ;WAS THE USER FILE READ ?? 
255 035420 00144 BEQ 2608 ZYES = READ IS COMPLETE 
256 035422 112737 000012 001416 MOVB #10.,RMDAO TREAD THE USER FILE LAST TRACK, SECTOR = 10. 
ie 035430 012737 106224 001414 MOV #USRFIL,RMBAO = :POINT TO USERS FILE BUFFER 
59 035436 012737 900003 036210 MOV #3,5008 ;RELOAD THE RETRY COUNT FOR THIS SECTOR 
260 035444 000137 034456 JMP 208 7GO READ T iE USER FILE 
262 “DUMMY THE BAD SECTOR FILES 
263 035450 2508: 
035450 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
035 010146 MOV R1.-(SP) ; ; PUSH R1 ON STACK 
264 035454 012701 000374 MOV #252.,R1 1 = NUMBER OF ENTRIES IN FILES 
265 03 012700 000014 MOV #14,R :RO = ADDRESS INDEX 10 § ILE STORAGE 
66 03 012760 177777 103216 255%: Mov #-1,MFGFIL(RO) ENTER ALL ONES IN MFG FILE 
267 035472 012760 177777 104224 MOV @-1,USRFIL(RO) ENTER ALL ONES . IN USER FILE 
268 035500 005720 1ST (RO}+ [ADVANCE ADDRESS 
269 035502 005301 DEC R1 [DECREMENT COUNT 
370 035506 001367 BNE 2558 :CONTINUE IF NOT DONE 
272 035506 012701 000006 MOV #6.,R1 SCLEAR HEADER, CLEAR ID & SERIAL NUMBERS 
373 035512 005000 CLR RO 
74 035514 005060 103216 2578: CLR MF GF IL (RO) 
375 035520 005060 104224 CLR USRF IL (RO) 
76 035524 005720 1ST (RO)+ TADVANCE ADDRESS 
277 035526 005301 DEC R! 
278 035530 001371 BNE 7 
279 035532 012601 MOV Cord, R1 ::POP STACK INTO R1 
ol 035534 012600 MOV (SP)+,RO +:POP STACK INTO RO 
281 ;SET MEDIA ENABLE AND RESTORE THE USERS PUT BUFFER 
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2608: 
MOV RO,-(SP) RO ON STA 
CLR 0 ‘AO ig REGISTER ONDER 
001510 MOV 1, MEDENB 
001410 265$: MOV ay FFER(RO), PUTBUF (RO) 
ADD RO ADV ANCE RO 
CMP a6 RO “DONE ? 
BHIS pe 
MOV (S$P)+,RO ::POP STACK INTO RO 
eee eeeeeekeAeeeeeeeereereeeeeaeanatenKaeHeeekanenaeeAeeeeereeTes 
:VERIFY THAT THE DESIRED SECTOR IS NOT IN THE MFG BAD SECTOR FILE 
[AND NOT IN THE USERS BAD SECTOR FILE. ASSIGN A NEW SECTOR IF THE 
: SECTOR 1S IN ANY OF THE FILES. 
MITITITITITITIIITLIT ILLITE LLL 
json INITIAL VARIABLES AND COMPUTE THE NUMBER OF SECTORS 
MOV RO,-(SP) 77PUSH RO ON STACK 
MOV R1,-(SP) :3PUSH R1 ON STACK 
MOV R2,-(SP) :PUSH R2 ON STACK 
001512 MOV RMDCO, ASNDC SLOAD aeaue step CYLINDER, TRAC 
001514 MOV RMDAO, ASNDA [AND SECTOR ADDRESS IN ASSIGNED’ STORAGE 
CLR R2 :R2 = NUMBER OF SECTORS 
MOV RMWCO,RO [RO = WORD COUNT 
NEG RO ;MAKE NUPBER POSITIVE 
MOV #256.,R1 [R1 = NUMBER OF WORDS PER SECTOR 
001410 BIT #8111. *RMCS10 iis | THIS A HEADER AND DATA COMMAND ?? 
MOV #258, RI +e WORDS PER SECTOR 
305$: CMP RO :1$ THERE A FULL SECTOR ?? 
BLOS 3168 YES ! 
TST :18 RO- ZERO ?? 
BEQ Biss 
Nc Re + INCREMENT FOR PARTIAL SECTOR 
310$: SUB R1,RO ;SUBTRACT ONE SECTOR FROM WORD COUNT 
INC R2 S INCREMENT SECTOR COUNT 
BR 3058 
315$: MOV R2,5008 ;SAVE SECTOR COUNT 
ZLOAD PARAMETERS AND SEARCH THE MFG/USER SECTOR FILE FOR THE 
TASSIGNED SECTOR. ALSO, SEARCH THE ADJACENT SECTORS IF THE 
:SECTOR COUNT 1S MORE THAN ONE. 
036220 MOV #MEGFIL¢14,5408 ; : THE STARTING ADDRESS OF MFG FILE 
:T0 BASE ADDRESS STORAGE. 
JSR PC, 3208 7GO SEARCH FILE 
036220 MOV #USREIL#14,5408 :LOAD START IMG ADDRESS OF USR FILE 
0 BASE ADDRESS STORAGE . 
JSR PC, 3208 ‘60 SEARCH FILE 
JMP 4008 [DONE WITH ALL FILE SEARCHES !! 
036214 320%: MOV ASNDC, 5208 [LOAD COMPARING CYLINDER ADDRESS 
036216 MOV ASNDA.530$ [LOAD COMPARING TRACK, SECTOR ADDRESS 
036212 MOV 5008, 5108 [LOAD NUMBER OF SECTORS TO CONFIRM 


SEG 0159 


$3 
36 
337 035744 
338 035744 
339 035750 
340 035754 
341 035756 
rk 035762 
34 
344 
345 
346 035764 
347 035764 
348 035772 
349 
350 035774 
351 036002 
352 
353 036004 
354 036006 
355 
356 
357 
358 036010 
359 036010 
360 036014 
361 036022 
368 g260e6 
363 0360 
364 036034 
365 036042 
366 036044 
367 036050 
368 036054 
369 036062 
370 036064 
371 036070 
372 
373 
374 
375 
376 036072 
377 036072 
378 036076 
379 
380 036100 
381 036104 
382 036112 
383 036114 
384 036120 
385 Ose ls 
386 036132 
387 036134 
tae 036140 
9 036144 
390 036152 
391 036154 
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036217 


036216 


001514 


001515 


001512 


036216 


036217 


036214 


sSETUP FOR A BINARY SEARCH OF THE CURRENT FILE FOR THE COMPARING 


$35$ 
MOV 
330$: CMP 
BEQ 
CMP 
BNE 


sFILE ENTRY EQUALS COMPARING CYLINDER. 
Hs 7 COMPARING TRACK, AND SECTOR. 


3(RO) ,530$+1 
3508 


$45 


3 


50$: CMP 


5408 ,RO 
#-1, (RO) 


(RO) ,5208 
3508 


2(RO) ,5308 
3608 


(RO)+,(RO)* 
330% 


CYLINDER, TRACK AND SECTOR ADDRESS 


;LOAD THE BASE ADDRESS IN RO 
71S ae FILE TERMINATOR ? 


7BR YES 

;DOES TABLE ENTRY = COMPARING CYLINDER ? 
;BR IF NO 

SEE IF THE NEXT ENTRY EQUALS 
;DOES TABLE ENTRY = COMPARING TRACK ? 
BR IF NO 


;DOES TABLE ENTRY = COMPARING SECTOR ? 
;BR IF YES 


NO, ADJUST CYLINDER POINTER IN BAD FILE 
AND CONTINUE SEARCH. 


:THE COMPARING CYLINDER, TRACK AND SECTOR IS IN THE BAD SECTOR FILE. 
oy * ai THE ASSIGNED SECTOR AND START THE SEARCH ALL OVER. 


: THE COMPARING SECTOR IS NOT 


ASNDA 
#31. ,ASNDA 
3208 


ASNDA 
ASNDA+1 


: INCREMENT SECTOR 
;SECTOR OK ?? 


sves ?! 
;CLEAR SECTOR AND ADVANCE TRACK 


LSTRK*1,ASNDA*1 ;TRACK OK ? 
3208 Y i 


ASNDA 
ASNDC 
#822. ,ASNDC 
3208 
ASNDC 
3208 


IN THE BAD SECTOR FILES. 


;CLEAR TRACK AND SECTOR 
INCREMENT CYLINDER 
ZCYLINDER OK ?? 

SYES !! 


[START AT CYLINDER 0 
SSEARCH NEXT SECTOR 


DECREMENT THE 


NUMBER OF SECTORS TO COMPARE AND SEARCH THE NEXT SECTOR IF THE NUMBER 


870s 


1S_NOT ZERO. 


re 


- 9508 
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oovw-OoO CoO 
ah a ad 
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22.,5208 
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oO 
bad 


+] 
TRK+1,550$41 


:DECREMENT NUMBER OF SECTORS TO COMPARE 
:DONE IF ZERO 


INCREMENT THE COMPARING SECTOR 
+ Hen OK ?? 


77 os 

sCLEAR SECTOR 

; INCREMENT TRACK 
sTRACK OK ?? 

sves !! 

sCLEAR SECTOR TRACK 
s INCREMENT CYLINDER 
CYLINDER OK ?? 

. y ' 


SSTART AT CYLINDER 0 


SEQ 0160 
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SEARCH NEXT SECTOR 


;ASSIGN THE SECTOR AND RETURN TO USER 
400$: 


ASNDC ,RMOCO 
ASNDA,RMDAO 
(SP)+#,R2 


sLOAD CYLINDER 

;LOAD TRACK AND SECTOR 
37POP STACK INTO R2 
3zPOP STACK INTO R1 
;;POP STACK INTO RO 


FOLLOWING ARE STORAGE LOCATIONS FOR THE MODULE 


RETRY COUNT/ NUMBER OF SECTORS REQUIRED 
;NUMBER OF SECTORS TO COMPARE 

;COMPARING CYLINDER 

; COMPARING TRACK AND SECTOR 

:BASE ADDRESS OF BAD SECTOR FILE BEING SEARCHED 
CONTAINS RMER2 


SEQ 0161 
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BUFFER GENERATOR SUBROUTIN SEQ 0162 


} .SBTTL BUFFER GENERATOR SUBROUTINE 
3 s THIS SUBROUTINE GENERATES A DATA BUFFER FOR WRITE COMMANDS. THE 
4 [BUFFER STARTS AT RMBA AND IS RMWC WORDS LONG. THE BUFFER 
5 [CONTAINS A REPETINive DATA PATTERN CONSISTING OF ad WORDS 
6 ;FROM THE DATA PATTERN TABLE, BEGINNING AT ADDRESS $TMPO. 
7 HEADER INFORMATION FOR THE BUFFER IS EXTRACTED FROM RMDC, 
$ [RMDA AND RMOF. 
10 ;RO = ADDRESS OF DATA BUFFER 
1 :R1 = LENGTH OF DATA BUFFER 
12 7R2 = ADDRESS OF DATA PATTERN 
ae \ 7R3 = LENGTH OF DATA PATTERN 
: 7R4 = SECTOR COUNT 
16 :CALL 
17 21) JSR PC ,GENBUF 
3 302) 2? RETURN HERE 
20 036224 GENBUF 
036224 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
036226 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
036230 010246 MOV R2,-(SP) 7:PUSH R2 ON STACK 
036232 010346 MOV R3,-(SP) ::PUSH R3 ON STACK 
036234 010446 MOV RG, (SP) +:PUSH R4& ON STAC 
21 036236 01 001414 MOV RMBAO, RO ZLOAD DATA BUFFER ADDRESS 
22 036242 01 001412 MOV RMWCO,R1 [LOAD WORD COUN 
23 036246 01 001444 036456 MOV RMDCO, 608 [LOAD STARTING CYLINDER ADDRESS 
3 036254 01 001416 036460 MOV RMDAO,65$ ‘LOAD STARTING TRACK,SECTOR ADDRESS 
26 036262 03 000002 001410 108: BIT #B1T1,RMCS10 sWRITE HEADER & DATA?? 
27 036270 00 BEQ 258 :NO!! 
28 036272 01 036456 MOV 60$, (RO) sWRITE HEADER WORD #1 
29 036276 05 140000 BIS WMSE'USE,(RO)  ;SET BAD SECTOR FLAGS FOR GOOD SECTOR 
30 036302 01 000035 MOV #29. ,R2 =R2 = MAXIMUM SECTOR ADDRESS (29.) 
32 036306 03 010000 001442 BIT #FMT16,RMOFO :18 Bi FORMAT ?? 
33 036314 00 BEQ 1 
34 036316 05 010000 BIS #FMT16, (RO) cEF ié FORMAT BIT IN HEADER 
35 036322 01 000037 MOV #31. ,R2 [CHANGE MAXIMUM SECTOR ADDRESS (31.) 
37 036326 00 15$: INC R1 sINCREMENT WORD COUNT 
38 036330 06 BEQ 50$ [EXIT IF DONE 
40 036332 00 1ST (RO)* :MOVE RO TO HEADER WORD #2 
41 036334 013720 036460 MOV 65$, (RO)+ sWRITE HEADER WORD #2 
42 036340 005201 INC R1 : INCREMENT WORD COUNT AND 
43 036342 001436 BEG 80s EXIT IF DONE 
44 036344 012703 036460 MOV #65$,R3 > ADVANCE SECTOR ADDRESS 
45 036350 105213 INCB (R3) 
46 036352 120213 CMPB RD (R3) s SECTOR OVERFLOW ?? 
47 036354 103013 BHIS 25% 
48 036356 105013 CLRB (R3) yes: = CLEAR SECTOR ADDRESS 
49 036360 145263 000001 INCB 1(R3) ‘ADVANCE TRACK ADDRESS 
50 636364 123763 001333 000001 CMPB ss LSTRK*1,1(R3)  :TRACK OVERFLOW ?? 
51 036372 103004 BHIS 25% sNO !! 
52 036374 105063 000001 CLRB 1(R3) [YES = CLEAR TRACK ADDRESS 
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253%: 
30$: 


40$: 


508: 


60$: 
65$: 


(SP)+,R4 
(SP)+,R3 
(SP)+*,R2 
(SP)+,R1 
(SP)+,RO 


PC 


sADVANCE CYLINDER ADDRESS 
LOAD SECTOR DATA COUNT 
;LOAD PATTERN ADDRESS 
;LOAD PATTERN COUNT 
WRITE DATA PATTERN 

: INCREMENT WORD COUNT AND 
sEXIT IF CONE 

;DECREMENT SECTOR COUNT 
START NEXT SECTOR IF 0 
;DECREMENT PATTERN COUNT 
RESTART PATTERN IF 0 
CONTINUE DATA PATTERN 


3;POP STACK INTO RG 
3;POP STACK INTO R3 
3;POP STACK INTO R2 
37POP STACK INTO R1 
;zPOP STACK INTO RO 


:CYLINDER ADDRESS STORAGE 
; TRACK, SECTOR ADDRESS STORAGE 


SEQ 0163 
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! .SBTTL COMPARE BUFFER SUBROUTINE 
3 ; THIS SUBROUTINE COMPARES THE CONTENTS OF BUFONE AND BUF TWO, 
4 ASSUMING THAT BUFONE 1S THE BUFFER FROM WHICH DATA WAS WRITTEN 
5 {AND BUFTWO 1S THE BUFFER TO mith DATA WAS READ. ERRORS IN BUFFER 
$ [COMPARISON ARE REPORTED TO THE USER VIA THE USER'S ERROR CALL. 
8 sCALL: 
9 7(1) J SR PC, CMPBUF 
10 (2) WORD URITE BUFFER ADDRESS 
1 : “WORD READ BUFFER ADDRESS 
12 7(3) BR RETURN HERE IF NO. ERROR 
13 3(4) NOP RETURN HERE IF ERR 
14 7(5) ERROR ERROR DEFINED BY SUBROUTINE 
13 (6) 77? 
17 036462 CMPBUF : 
036462 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
036464 010146 MOV R1,-(SP) :zPUSH R1 ON STACK 
0364 010246 MOV R2,-(SP) :7PUSH R2 ON co 
036470 010346 MOV R3,-(SP) ::PUSH R3 ON STA 
18 036472 005037 037022 CLR 156s = CLEAR CORRECTION. FLAG 
20 :DETERMINE | IF DATA SHOULD BE CORRECTED 
21 036476 033737 004000 001366 BIT EC1,RMOF I :WAS ECC CORRECTION ALLOWED ?? 
22 036504 001063 BNE NO 
23 036506 032737 100000 001350 BIT #D0CK,RMERTI MAS. THERE A DATA CHECK ?? 
24 036514 001457 BEQ $ 
25 036516 032737 000100 001350 BIT MECH, RMERII 18 ERROR CORRECTION HARD SET ? 
26 036524 001053 BNE 80$ “YES 
27 036526 032737 010000 001366 BIT #FMT16,RMOF I iis this 16 BIT FORMAT ?? 
28 036534 001447 BEQ 80$ NO 
30 ;CORRECT DATA USING ECC INFORMATION 
31 036536 013700 001414 MOV RMBAO ‘> : + = ire pact BUFFER ADDRESS 
32 036542 013701 001400 MOV RMECTI,R = ECC POSITION 
33 036546 052737 100000 037022 BIS #BIT15. 1508 eet CORRECTION FLAG 
35 :MOVE RO 10 WORD BOUNDARY OF ERROR BURST 
36 036554 022701 000020 i0$: CMP #16.,R1 :1S BIT POSITION > 1 WORD 
37 036560 103004 BHIS 208 NO 
38 036562 162701 000020 SUB #16.,R1 SUBTRACT 1 WORDS WORTH 
39 036566 005720 TST (RO)+ sADVANCE BUFFER ADDRESS 1 WORD 
40 036570 000771 BR 10$ 
41 036572 012702 000001 20$: MOV #1,R2 :R2 = BIT POINTER 
42 036576 010203 MOV R2,R3 :R3 = BIT NUMBER 
44 ¢ -MOVE R2 TO STARTING BIT OF ERROR BURST 
45 036600 020301 S08: CMP R3,R1 :1$ R3 SAME AS RI 2? 
46 036602 001403 BEQ 35g" ZYES 
47 036606 006302 ASL R2 ‘SHIFT ‘BIT POINTER 
48 036606 005203 INC R3 > INCREMENT BJT NUMBER 
49 036610 000773 BR 308 
30 036612 012703 000013 35$: MOV #11. ,R3 :R3 = LENGTH OF ERROR BURST 
52 :CORRECT THE ERROR BURST 
53 036616 030237 001402 40$: ‘BIT R2,RMEC21 :1S THIS BIT SET IN ECC PATTERN ?? 
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BEQ 60$ :NO = DO NOT CORRECT THIS BIT 
BIT R2, (RO) 31S THE BIT PRESENTLY SET ?? 
BEQ 50$ NO 
BIC R2, (RO) “RESET THE BIT 
BR 608 

50$: BIS R2, (RO) :SET THE BIT 

60$: ASL R2 ‘SHIFT TO NEXT BIT 
BNE 70$ 
MOV #1,R2 ZCONTINUE WITH FIRST BIT OF NEXT WORD 
1ST (RO)+ 

70$:  —+EC R3 ZEND OF BURST ?? 
BNE 40$ [NO !! 

;COMPARE WRITE BUFFER TO READ BUFFER 

0$: MOV @10(SP),RO :RO = WRITE BUFFER 
ADD #2,10(SP) :MOVE SP TO READ ADDRESS 
MOV a1O(sP),R1 = READ BUFFER 
ADD #2,10(SP) ‘ROVE SP TO RETURN ADDRESS 
MOV RMWCI,R2 [R2 = NUMBER OF WORDS TRANSFER 
SUB RMWCO,R2 

90$: CMP (RO)+.(R1)¢ :COMPARE DATA WORDS 
BNE 1008 SEXIT IF NOT EQUAL 
DEC R2 [DECREMENT WORD COUNT 
BNE 908 [CONTINUE IF NOT DONE 
BR 110% [DONE COMPARE - NO ERROR 

:DATA COMPARE FAILED 

i00$: MOV -(RO),$GDDAT STORE GOOD DATA FOR TYPEOUT 
MOV -(R1).$BDDAT | :STORE BAD DATA FOR TYPEOUT 
MOV RO, S$GDADR [STORE ADDRESS OF GOOD DATA 
MOV R1.$BDADR [STORE ADDRESS OF BAD DATA 
MOV R2.$TMPO ;STORE WORD COUNT OF ERROR 
ADD #4. 10(SP) =MOVE SP TO USER'S ERROR CALL 
MOVB #3%6,a10(SP) [WRITE ERROR NUMBER IN CALL 

: CHANGE ERROR NUMBER IF ECC CORRECT 1ON FAILED 
BIT #81115, 1508 WAS ECC CORRECTION USED ?? 
MOVB = #163 a1ocsP) “ECC * CORRECTION FAILED 

105$: SUB #2,10(S [MOVE SP TO RETURN IF ERROR 

1108: 
MOV (SP)+,R3 ::POP STACK INTO R3 
MOV (SP)+-R2 [:POP STACK INTO R2 
MOV (SP)+._R1 >:POP STACK INTO R1 
MOV (SP)+_RO +:POP STACK INTO RO 
RTS PC [RETURN TO USER 

150$:  .WORD ZECC CORRECTION FLAG 


SEQ 0165 


K 13 
CZRMNAO RMOS/3/2 FCTNL TST 2 MACRO vO3.01 11-APR-80 13:17:48 PAGE 19 
GET STATUS SUBROUTINE SEQ 0166 


} -SBTTL GET STATUS SUBROUTINE 

3 ;THIS SUBROUTINE SETS UP THE ‘GET INDEX TABLE’ AND THE ‘'GET 

4 BUFFER’ FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET SUBROUTINE 
f AND THEN RETURNS TO THE USER. 

7 CALL: JSR PC,GETSTS 

: 3 777 RETURN HERE 

10 037024 GETSTS: 

037024 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 

11 037026 010146 MOV R1,-(SP) 7;PUSH R1 ON STACK 

12 037030 010246 MOV R2,-(SP) 7;PUSH R2 ON STACK 

13 037032 012700 001522 MOV #GETINX,RO ;RO = ADDRESS OF INDEX TABLE 
14 037036 012701 001404 MOV #RMEC2142,R1 3R1 = ADDRESS OF GET BUFFER 
15 037042 012702 000046 MOV #RMEC2,R2 sR2 = REGISTER INDE 

16 037046 110220 2$: MOVB R2,(RO)+ WRITE REGISTER INDEX IN TABLE 
17 037050 005041 CLR -(R1) CLEAR CORRESPONDING LOCATION 
18 037052 162702 000002 3$: SuB #2,R2 :DECREMENT TO NEXT INDEX 

19 037056 100405 BM] 4$ ;BRANCH OUT IF DONE 

20 037060 022702 000022 CMP #RMDB,R2 ;DONT WRITE RMDB INDEX 

21 037064 001370 BNE 2$ 

22 037066 005041 CLR =-(R1) 

23 037070 000770 BR 3$ 

24 037072 112720 000200 4$: MOVB #200, (RO)+ sWRITE TERMINATOR 

25 037076 012602 MOV (SP)+,R2 :;POP STACK INTO R2 

26 037100 012601 MOV (SP)+,R1 :;POP STACK INTO R1 

27 037102 012600 MOV (SP)+,RO 7;POP STACK INTO RO 

28 037104 000240 NOP 
4 037106 000207 RTS PC 
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000004 


001176 


000016 
000016 


-SBTTL GET SUBROUTINE 


sTHIS SUBROUTINE READS THE REGISTERS WHICH ARE LISTED IN THE 
:"GET_ INDEX TABLE" AND STORES THEIR VALUES IN THE CORRE SPONDING 
‘ERAT oF N = "GET REGISTER BUFFER'’. FOR EXAMPLE, AN 

REA 


¢ SUBROUTINE CALL: 

7) “GET INDEX TABLE’ HAS BEEN LOADED WITH ~ nated INDEX 

; VALUES AND TERMINATED WITH A CONTROL BYTE 

3(2) "GET INPUT BUFFER’ 1S AVAILABLE FOR USE. (NOTE THAT 

: UNUSED LOCATIONS, 1.£.,ENTRIES IN + tg CORRE SPONDING 
TO REGISTERS NOT READ, ARE NOT CHANGED.) 


3(3) JSR PC ,GET 

; aR 77? RETURN HERE IF NO ERROR FOUND 
: NOP RETURN HERE IF ANY ERROR FOUND 
: ERROR SUB DEFINES ERROR NUMBER 


[RO = REGISTER BASE ADDRESS 
=R1 = REGISTER ADDRESS 
:R2 = BUFFER BASE ADDRESS 
=R3 = BUFFER ADDRESS 
:R4 = POINTER TO REGISTER INDEX 
GET NOP 
ADD #4, (SP) :CLEAR ERROR NUMBER IN USER'S 
CLRB = a SP) ‘ERROR CALL 
SUB #4, (SP) 
MOV RO,-(SP) 7:PUSH RO ON STACK 
MOV R1,-(SP) +:PUSH R1 ON STACK 
MOV R2.-(SP) >:PUSH R2 ON STACK 
MOV R3,~ (SP) >:PUSH R3 ON STACK 
MOV R4.=(SP) >:PUSH R4 ON STACK 
MOV ERRVEC,-(SP) | ::PUSH ERRVEC ON STACK 
MOV ERRVEC+2,-(SP) ::PUSH ERRVEC+2 ON STACK 
MOV SBASE RO 
MOV #GETBUF ,R2 
MOV #GETINX.RG 
MOV #5$, ERRVEC :SETUP FOR TIMEOUT 
MOV #PRE ERRVEC+2 
1$: MOV RMCS2(RO), $TMPO :GET "NED" STATUS 
MOV RMCS1(RO).$TMP1 :GET “DVA’ STATUS 
BIT #DVA,STMPI SDEVICE AVAILABLE ?? 
BNE 38 “YES 
ADD ‘URI TE ERROR NUMBER IN USER'S 
MOVE eii2,at6(sP) TERROR CALL 
3$: TSTB —s_ (RG) ; DONE ?? 
BM] $ YES! ! 


MOVB (R4) ,R1 
BIC #*CIOXMSK, R1 


R1_ = REGISTER ADDRESS 
SCLEAR ANY SIGN EXTENSION 


SEQ 0167 
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000016 


000016 
000016 7$: 
8$: 


9$: 


RO,R1 

(R4)+,R3 :R3 = STORAGE ADDRESS FOR REGISTER 
wSCIDAMSK RS [CLEAR ANY SIGN EXTENSION 
(RI), (R3) ZREAD REGISTER 

3$ 

(SP)+,(SP)4 :RESTORE STACK 

#4, 16(SP) ‘WRITE ERROR NUMBER IN 
#7.a16(SP) SUSER'S ERROR CALL 
#2.16(SP) 

(RG) :DONE CLEARING?? 

9$ sYES!! 

R3 [CLEAR REMAINING STORAGE 
(RG)+,R3 S LOCATIONS 

R2,R3 

(RS) 

8$ 

(SP)+, ERRVEC42 ::POP STACK INTO ERRVEC+2 
(SP)+,ERRVEC  ;;POP STACK INTO ERRVEC 
(SP)+.R4 ::POP STACK INTO R4& 
(SP)+.R3 ::POP STACK INTO R3 
(SP)+,R2 :;POP STACK INTO R2 
(SP)+.R1 ::POP STACK INTO R1 
(SP)+.RO >:POP STACK INTO RO 

PC RETURN 


SEQ 0168 
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-SBTTL PUT SUBROUTINE 


:THIS tore fy WRITES THE REGISTERS WHICH ARE LISTED IN THE 
;PUT_INDEX TABLE’ WITH THE CONTENTS OF THE CORRESPONDING 
;LOCATION IN THE ‘‘PUT REGISTER BUFFER". THE NUMBER OF 


U 
;BE TERMINATED WITH A CONTROL byte (200) WHICH SHOULD 
sFOLLOW THE LAST ENTRY. 


:SUBROUTINE CALL: 


34) “PUT INDEX TABLE"’ — Tie LOADED WITH INDEX VALUES 
: OF REGISTERS TO BE WRIT 

3 (2) “PUT REGISTER yt CONTAINS CONTENTS OF EACH 

; ashe pt Put BE WRITTEN 


— 


+ (3) 

: BR 273 RETURN HERE IF NO ERROR FOUND 
: NOP RETURN HERE IF ANY ERROR FOUND 
: ERROR SUB DEFINES ERROR NUMBER 

[RO = REGISTER BASE ADDRESS 


OWONAWUES WN ODO ONOUS WH ODOONAUS WH 


PROMO RINMONINPINONMD YQ) — ss ts es as ss 


[R1 = REGISTER ADDRESS . 
:R2 = BUFFER BASE ADDRESS 
:R3 = BUFFER ADDRESS ; 
=R4 = POINTER TO REGISTER INDEX 
037360 000240 PUT NOP 
037362 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
037364 010146 MOV R1,-(SP) *:PUSH R1-ON STACK 
037366 010246 MOV R2,-(SP) >:PUSH R2 ON STACK 
037370 010346 MOV R3,-(SP) >:PUSH R3 ON STACK 
037372 010446 MOV R4,=(SP) ::PUSH R4 ON STACK 
037374 013746 000004 MOV ERRVEC,-(SP)  ::PUSH ERRVEC ON STACK 
037400 013746 000006 MOV ERRVEC+2,-(SP) ::PUSH ERRVEC+2 ON STACK 
30 037404 013700 001276 MOV SBASE RO 
31 037410 012702 001410 MOV #PUTBUF ,R2 
32 037414 012704 001551 MOV #PUTINX,R4 
33 037420 012737 037530 000004 MOV #5$, ERRVEC sSETUP FOR TIMEOUT 
34 037426 012737 000300 000006 MOV #PR6,ERRVEC42 
35 037434 016037 000010 001174 15: MOV RMCSO(RO),$TMPO GET “'NED'' STATUS 
36 037442 016037 000000 001176 MOV RMCS1(RO).$TMP1 :GET ‘'DVA’ STATUS 
37 037450 032737 004000 001176 BIT #DVA,STMP1 :DEVICE AVAILABLE ?? 
38 037456 001007 BNE 3$ YES! 
39 037460 062766 000004 000016 ADD #4,16(SP) WRITE ERROR NUMBER IN 
40 037466 112776 000112 000016 MOVB #112,a16(SP) USER'S ERROR CALL 
41 037474 000424 R 7$ 
42 037476 105714 3S: TSTB = (R4) DONE ?? 
43 037500 100425. BM] 9$ TYES!! 
44 037502 111401 MOVB  (R4),R1 :R1_ = REGISTER ADDRESS 
45 037504 042701 177700 BIC #°CIOXMSK,RI [CLEAR ANY SIGN EXTENSION 
46 037510 060001 ADD RO,R1 
47 037512 111403 MOVB = (R4) ,R3 :R3 = STORAGE ADDRESS 
48 037514 042703 177700 BIC #°CIOXMSK,R3 CLEAR ANY SIGN EXTENSION 
49 037520 060203 ADD R2,R3 
50 037522 011311 MOV (R$) ,(R1) :WRITE REGISTER 
$1 037524 105724 4$: TSTB = (R44 sADJUST REGISTER POINTER 


ots. i 
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SEQ 0170 
2g 037526 000763 BR 3$ 
54 037530 022626 5$: CMP (SP)+,(SP)+ sADJUST STACK 
55 037532 062766 000004 000016 ADD #4 ,16‘SP) WRITE ERROR NUMBER IN 
56 037540 112776 000007 000016 MOVB #7,816(SP) sUSER'S ERROR CALL 
ef 037546 162766 000002 000016 7$: SUB #2,16(SP) 
59 037554 9$: 
037554 012637 000006 MOV (SP)+,ERRVEC+2 ; POP be INTO ERRVEC#+2 
| 037560 012637 000004 MOV (SP)+,ERRVEC :POP STACK INTO ERRVEC 
037564 012604 MOV (SP)+, {POP STACK INTO 
037566 012603 MOV (SP)+,R3 ::POP STACK INTO R3 
037570 012602 MOV (SP)+,R2 : POP STACK INTO R2 
037572 012601 MOV (SP)+,R1 :POP STACK INTO RI 
037574 012600 MOV (SP)+,RO :;POP STACK INTO RO 
037576 000207 RTS PC ;RETURN 
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«SBTTL SIZE CLOCK SUBROUTINE 


SIZCLK: 


23: 
3$: 


ERRVEC,-(SP) 


($P)+,(SP)4 
#23,,ERRVEC 
#172540, CLKADR 
#104, CLKVCT 
QCLKADR 


3 
(SP)*,(SP)¢ 
#2,4(SP) 


(SP)* ERRVEC4+2 
aha crit: 


7;PUSH ERRVEC ON STACK 
;;PUSH Sve ccs ON STACK 
:SET UP FOR BUS TIMEOU 


;LOAD ADDRESSES FOR KWile-L 


TEST FOR KWIl-L PRESENT 

sYES = KWil-t IS PRESENT 
RESTORE SP 

7SET UP FOR BUS TIMEOUT 

[LOAD ADDRESSES FOR KWIl-P CLOCK 


TEST FOR KW11-P PRESENT 
YES = KWll-P 1S PRESENT 
sRESTORE SP 

:MOVE RETURN TO ERROR 


:POP STACK INTO ERRVEC+2 
3:3; POP STACK INTO ERRVEC 
;RETURN TO USER 
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000004 
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-SBTTL TIMEOUT SUBROUTINE 


sTHIS SUBROUTINE WAITS FOR RDY 
;GREATER THAN APPROX. 500 MSEC AND THEN RETURNS. 


SCALL: 


TIMOUT: 


1$: 


2s: 
3$: 


4$: 


5$: 


JSR 
??? 


PC, TIMOUT 


RO.-(SP) 


é 
#PRE, ERRVEC 42 
SBASE RO 


CLKADR,R1 
#30.,R 
R1,#172540 

2$ 

#1,2(R1) 
#BiT2'!BIT0,(R1) 


RMCS1(RO) ,=(SP) 
#*C<RDY!GO>, (SP) 
#ROY, (SP) 


#B1T7,(R1) 


(SP)+ ,ERRVEC+2 
(SP)+, ERRVEC 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 

PC 


1 AND GO = 


RETURN HERE 


3;PUSH RO ON ST 
Hite Ri ON ST 
H R2 ON ST 


0 OR FOR A TIMEOUT 


ACK 
ACK 
ACK 


PUSH apy > ON STACK 


PUSH 
; SETUP FOR BUS 


H ERRVEC+2 ON STACK 
TIMEOUT = 04 TRAP 


;RO=BASE ADDRESS 


sR1=CLOCK ADDRE 
:R2=NUMBER OF ( 
sKW1l-P CLOCK?? 
-NO!! 


:SET COUNTER 
[START COUNTER 


:GET STATUS 
:RDY= | -G0=0?? 
; YES! 

STIRER DONE ?? 

DEC “NUMBER OF 


$$ 
LOCK CYCLES 


CYCLES 


sCONTINUE IF NOT DONE 


:"‘RDY"’ DID NOT 


SWITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED. 


ADJUST STACK 
:MOVE SP TO USE 


SET OR *'560°' DID NOT RESET 


R°S CALL 


;WRITE ERROR NUMBER 


:POP S$ 
; POP STACK INT 


A INTO ERRVEC42 
0 oy vEC 


:;POP STACK INTO R 


::POP STACK INT 
7;POP STACK INT 
;RETURN TO USER 


0 RI 
0 RO 


SEQ 0172 
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»SBTTL ERROR CHECK SUBROUTINES 


tetera teraraneteeereeeerereteteneaneneteeeeeeeeneeeeeeeeeeeeeee 


-SBTTL PRIMARY ERROR CHECK SUBROUTINE 

;THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND 
THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED. THE 
FOLLOWING CHECKS ARE MADE: 


-CORRECT UNIT IS SELECTED, 1.€. . THE UNIT SELECT BITS OF RMCS2 
: (BITS 0-2) EQUAL THE UNIT BEING TESTED D; 


-SELECTED UNIT IS AVAILABLE, 1.£., DVA (BIT 11 OF RMCS1) IS SET 
ZAND NED (BIT 12 OF RMCS2) IS RESET; 


LAST COMMAND WAS COMPLETED, 1.£., THE MASSBUS CONTROLLER IS 
“READY (BIT 7 OF RMCS1) AND THE GO BIT IS RESET (BIT 0 OF RMCS1) OR THE 
:DRIVE READY BIT (BIT 7 OF RMDS) IS SET. 
i ‘ PARITY ERROR OCCURRED WHEN READING REMOTE REGISTERS, 
E et PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS, 

T1.6., PAR = 0, OR, PAR = DPE = 1 
; THE SUBROUTINE ASSUMES THAT: 

.STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER, 
SIN PARTICULAR. RMCS1, RMCS2 AND RMDS WAVE BEEN STORED IN THEIR 
; CORRE SPONDING LOCATIONS OF THE "'GET’’ BUFFER 

.(SUNIT) CONTAINS THE DRIVE NUMBER 
THE SUBROUTINE IS CALLED AS FOLLOWS: 


a) JSR PC,PRIERR 


TR ne a nae 
OWN VF WN O ODN VF WN OO ODBNOU FS WHO OOO VSWR 


: BR ??? RETURN HERE IF NO ERROR 
: NOP RETURN HERE TO REPORT AN ERROR 
3 3 ERROR ERROR NUMBER DEFINED BY SUB 
3 : JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
+4 : ??? RETURN HERE IF NO MORE ERRORS 
4 
¢ 040106 PRIERR: 
43 CLEAR USER'S ERROR CALL 
44 040106 062716 000004 ADD #4, (SP) MOVE (SP) TO ERROR CALL 
45 040112 105076 000000 CLRB a(SP) ;CLEAR ERROR NUMBER 
+8 040116 162716 000004 SUB #4,(SP) ;MOVE (SP) TO NO ERROR RETURN 
48 ;REPORT AN ERROR IF THE WRONG UNIT IS SELECTED 
49 040122 013737 001344 001142 MOV RMCS21,$BDDAT ;CORRECT UNIT SELECTED?? 
50 0401 042737 177770 001142 BIC #*CUNTMSK , SBDDAT 
51 040136 013737 001234 001140 MOV SUNIT,SGDDAT GOOD DATA FOR TYPEOUT 
52 040144 042737 177770 001140 BIC #*CUNTMSK ,SGDDAT 
53 040152 123737 001140 001142 CMPB SGDDAT,SBODAT COMPARE EXPECTED AND RECEIVED 
by sDRIVE NUMBERS 
55 040160 001415 BEQ 1$ svESt' 
56 040162 062716 000004 ADD #4, (SP) 
57 040166 112776 000001 000000 MOVB #1,a(SP) sERROR 1 


CZRMNAO RMOS/3/2 FCTNL TST 2 
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58 040174 162716 000002 
59 040200 reders 


04 
040202 16 000010 
61 040206 000240 
62 040210 000137 040730 
63 040214 
64 
65 
66 
67 040214 032737 004000 
040222 001045 
69 040226 013737 001334 
70 040232 052737 004000 
71 0402460 013737 001334 
72 040246 062716 000004 
73 040252 112776 000002 
0402 032737 010000 
75 040266 001414 
76 040270 013737 001344 
77 040276 013737 001344 
040 042737 010000 
79 040312 112776 000003 
80 040320 162716 000002 
81 040324 004736 
82 040326 162716 000010 
83 040332 000240 
84 040334 000575 
85 040336 
87 
88 040336 032737 000200 
89 040344 001030 
90 040346 013737 001334 
91 040354 052737 000200 
92 040362 042737 160001 
93 040370 015737 001334 
94 040376 062716 000004 
95 040402 112776 000004 
96 040410 162716 000002 
97 040414 004736 
98 040416 162716 000010 
99 040422 000240 
100 040424 000541 
10° 040426 
102 
103 
104 040426 032737 000001 
105 040434 001431 
106 040636 032737 000200 
107 040444 001025 
108 040446 013737 001334 
109 040454 erat 160001 
110 040462 013737 001334 
111 040470 062716 000004 
112 040674 112776 000005 
113 040502 162716 000002 
114 040506 004736 
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001334 
001140 
001140 
001142 


000000 
001344 


001140 


000000 


001334 
001140 


001142 
000000 


001334 
001346 
001140 
001140 
001142 


000000 


1$: 


#2, (SP) 
PC ,a(SP)+¢ 
#16, (SP) 
10$ 


MOVE SP TO RETURN FOR ERROR 
;REPORT WRONG UNIT SELECTED 
sRESTORE (SP) 


:SKIP OTHER CHECKS 


sREPORT AN ERROR IF THE DEVICE IS NOT AVAILABLE OR IF 
; THE evi 1S NONEXISTANT 


re Hh AVAILABLE ?? 
TEXPECTED STATUS 
sRECEIVED STATUS 


sERROR #2 

sWAS NED SET?? 
zNO!! 

EXPECTED STATUS 
sRECEIVED STATUS 


:YES = CHANGE ERROR NUMBER 
sMOVE SP TO RETURN FOR ERROR 
s;REPORT DEVICE NOT AVAILABLE 
sRESTORE (SP) 


SKIP OTHER CHECKS 


ha wots CONTROLLER IS NOT READY 


;CONTROLLER READY?? 
sVéS:! 
EXPECTED STATUS 


sRECEIVED STATUS 


sERROR #4 

:MOVE SP TO RETURN FOR ERROR 
REPORT CONTROLLER NOT READY 
RESTORE (SP) 


SKIP OTHER CHECKS 


AN ERROR IF GO IS NOT ZERO AND DRY IS NOT ONE 
8 #G0,RMCS11 :GO RESET?? 


ves! ! 

:DRIVE READY?? 
sVEO:« 

;EXPECTED STATUS 


$GDDAT 


sRECEIVED STATUS 


sERROR #5 
;MOVE SP TO RETURN FOR ERROR 


BI! #DVA,RMCS1I 
BNE Sh 
MOV RMCS11,$GDDAT 
BIS #DVA,SGDDAT 
MOV RMCS11,$BDDAT 
ADD #4, (SP) 
MOVB = #2. a SP) 
BIT #NED ,RMCS21 
BEQ 2$ 
MOV RMCS21,$GDDAT 
MOV RMCS21,$BDDAT 
BIC #NED, SGDDAT 
MOVB = #3, a( SP) 

2$: SUB #2. (SP) 
JSR PC .a(SP)+ 
SUB #16, (SP) 
NOP 
BR 10$ 

5$: 

:REPORT AN ERROR 
BIT #RDY,RMCS11 
BNE 7$ 
MOV RMCS11,$GDDAT 
BIS #RDY,SGDDAT 
BIC #SC'! TRE! MCPE 'GO,S$GDDAT 
MOV RMCS11,$BDDAT 
ADD #4,(S 
MOVB = #4. a( SP) 
SUB #2, (SP) 
JSR PC a(SP)+ 
SUB #16, (SP) 
NOP 
BR 108 

7$: 

REPORT 

IT , 

BEQ 
BIT #ORY,RMDS1 
BNE RS 
MOV RMCS11,$GDDAT 
BIC #SC' TRE 'MCPE!GO, 
MOV RMCS11,$BDDAT 
ADD #4, (SP) 
MOVB = #5. a( SP) 
SUB #2: (SP) 
JSR PC a(SP)¢ 


SREPORT DRIVE NOT READY 


SEQ 0174 


CZRMNAO RMOS/3/2 FCTNL TST 2 
PRIMARY ERROR CHECK SUBROUTINE 


115 060510 162716 000010 
116 040514 000240 

117 040516 000504 

118 040520 

119 

Hi 

122 0640520 032737 020000 
123 oF $5 ste 

124 040530 013737 001334 
125 0405 042737 160001 
126 040544 013737 001334 
127 040552 062716 000004 
128 040556 112776 000013 
129 040564 162716 000002 
130 040570 004736 

131 040572 162716 000010 
132 040576 000240 

133 040600 000453 

134 040602 

135 

136 

137 040602 032737 000010 
138 040610 001451 

139 040612 032737 000010 
140 040620 001045 

141 040622 032737 000010 
ra 040630 001413 

143 040632 010046 

144 040634 012700 001551 
145 040640 122710 000014 
146 040644 001002 

147 040646 012600 

148 040650 000431 

149 040652 105720 

150 040654 100371 

151 040656 012600 

152 040660 013737 001350 
153 040666 042737 000010 
154 040674 015737 001350 
155 040702 062716 000004 
156 040706 112776 000050 
157 040714 162716 000002 
158 040720 004736 

159 040722 162716 000010 
160 040726 000240 

161 040730 062716 000010 
162 040734 000240 

1s? 040736 000207 
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001334 
001140 
001140 
001142 


000000 


001350 
001376 
001424 


001140 
001140 
001142 


000000 


;REPORT 
;PARITY 


9$: 
;REPORT 


91$: 


92$: 


93$: 


— — 
—-o 
Pe 


SUB #10, (SP) RESTORE (SP) 
NOP 


BR 10$ 


AN ERROR IF THE RH CONTROLLER DETECTED BAD 
ON THE MASSBUS CONTROL BUS 
T ~ ateccantaaaia sPARITY ERROR ?? 


NO! ! 
MOV RMCS11,$GDDAT  :EXPECTED STATUS 
BIC #SC!TRE'MCPE'GO,$GDDAT 
MOV RMCS11,$BDDAT ;RECEIVED STATUS 
#4, (SP) :MOVE STACK TO USER'S ERROR 
MOVB «#18, a( SP) TERROR #13 
#2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ “REPORT ERROR VIA USER 
SUB #16, (SP) TRESTORE STACK 


NOP 

BR 10% 

AN ERROR IF DETECTED A CONTROL BUS PARITY ERROR 

ae PAR, RMERII _ THERE A PARITY ERROR?? 
zNO!! 

BIT #OPE ,RMER21 sWAS IT THE CONTROL BUS?? 

BNE 11% NOT SURE!! 

BIT #PAR ,RMERIO DID TEST SET PAR ?? 

BEQ 93% ;NO!! 


>;PUSH RO ON STACK 
:RO POINTS TO INDEX TABLE 
CMPB #RMERT, (ROD [SEARCH TABLE FOR RMER1 


2 
MOV (SP)+,RO 3;POP STACK INTO RO 
BR 11$ PAR WAS SET By TEST 
TSTB (RO)+ ;END OF TABLE?? 
91% ;NO!! 


MOV (SP)+,RO :;POP STACK INTO RO 
MOV RMERI1,$GDDAT :EXPECTED STATUS 
BIC #PAR,SGDDAT 
MOV RMERII,$BDDAT  ;RECEIVED STATUS 

#4, (SP) [MOVE SP TO USER'S ERROR CALL 
MOVB «#50, a( SP) ‘WRITE THE ERROR NUMBER 
SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)¢ ‘REPORT THE ERROR 
SUB #10, (SP) “MOVE SP TO NO ERROR RETURN 
ADD #10, (SP) 


RETURN TO ERROR 
NOP RETURN TO NO ERROR 
RTS PC 


MOV RO,-(SP) 
MOV #PUTINX,RO 


SEQ 0175 


CZRMNAO RMOS/3/2 FCTNL TST 2 


SECONDARY ERROR CHECK SUBROUTINE 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 
20 
21 
22 
23 
24 040740 
25 
26 
27 
28 040740 013737 001410 
29 040746 042737 177701 
30 040754 062716 000004 
31 040760 105076 000000 
3 040764 162716 000004 
34 
35 
: 
38 040770 032737 000200 
39 040776 001024 
40 041000 013737 001346 
41 041006 042737 177577 
42 041014 012737 000200 
43 041022 062716 000004 
44 041026 112776 000010 
45 041034 162716 000002 
46 041040 004736 
47 0410462 162716 000010 
48 041046 000240 
: 
51 041050 032737 000001 
52 041056 001423 
53 041060 013737 001334 
54 041066 042737 177776 
55 041074 005037 001140 
56 041100 062716 000004 
57 041104 112776 000011 
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~SBTTL SECONDARY ERROR CHECK SUBROUTINE 


sTHE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS 
sSUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. THESE 
;ERRORS ARE DEEMED SECONDARY IN THAT THEY onntee NOT NECESSARILY 


“IT MOVES THE — 


;NUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETUR 

:T0 THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE test ROUTINE 
MAKES THE ERROR CALL, IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS FOR 
SOTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUTINE 
sRETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL. 


ZCALL: JSR PC, SECERR 
: BR 273 

: NOP 

: ERROR 

: JSR PC,a(SP)s 
: 72? 


RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE 


NOTE: 
“INPUT REGISTER BUFFER. 
SECERR: 


eo PRAHA aeeeeteeeteetterteterekteataneeneeteeakteeteeneeeneneeeeee 


STORE FUNCTION CUDE AND CLEAR USER'S ERROR NUMBER 


; STORE gaat CODE 


044574 MOV RMCS10,515$ 

044574 BIC W*CCFOTFIIFQ'F3!F4>,515 
ADD #4, (SP) 
CLRB a(SP) 


SUB #4, (SP) 


;MOVE (SP) TO ERROR CALL 
[CLEAR ERROR NUMBER 
:MOVE (SP) TO NO ERROR RETURN 


se eeeteereaeererereeeereereereteenenekeareneeeateneeeteneeeneeetese 


CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS 


;REPORT — IF DRIVE 1S NOT READY, 1.F., IF 
#ORY,RMDSI 


DRY = 0 
se lv vE READY?? 


‘BAD “DATA FOR TYPEOUT 

;GOOD DATA FOR TYPEOUT 
;ERROR NUMBER 

;MOVE SP TO RETURN FOR ERROR 


;REPORT NOT READY 
RESTORE (SP) TO ERROR N 


+ Ak RESET?? 
:BAD DATA FOR TYPEOUT 
;GOOD DATA FOR TYPEOUT 


001346 

ONE 5 
001142 MOV RMDS1,SBDDAT 
001142 - BIC #°CDRY, SBDDAT 
001140 MOV #ORY, SGDDAT 

ADD #4, (§P) 
000000 MOVB «#10, a( SP) 

SUB #2, (SP) 

JSR PC a(SP)+ 

SUB #16, (SP) 

NOP 

- REPORT ERROR IF GO BIT 1S NOT RESET 

001334 5$: BIT #G0,RMCS11 

BEQ 10$ 
001142 MOV RMCS1i,$BDDAT 
001142 BIC #°CG0, $BDDAT 

CLR S$GDDAT 

ADD #4, (SP) 
000000 MOVB = #1 4, a( SP) 


;ERROR NUMBER 


SEQ 0176 
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SECONDARY ERROR CHECK SUBROUTINE SEQ 0177 
58 041112 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
59 041116 004736 JSR PC a(SP)+ SREPORT DEVICE NOT AVAILABLE 
60 041120 162716 000010 SUB #16, (SP) SRESTORE (SP) 

61 0411246 000240 NOP 

63 ;REPORT ERROR IF FUNCTION CODE READ FROM DEVICE IS NOT CORRECT 
64 041126 013737 001334 001142 10$: MOV RMCS11,$B8 Seat. 31S FUNCTION CODE CORRECT?? 
65 041134 042737. 177701 001142 BIC #*C76 $80 

66 041142 013737 044574 001140 MOV $15$ $,$60 ZEXPECTED FUNCTION CODE 

67 041150 023737 001142 001140 CMP SBDDAT, SeDDAT 

68 041156 001413 BEQ 15$ SYES!! 

69 041160 062716 000004 ADD #4, (SP) 

70 041164 112776 000012 000000 MOVB =: #12, (SP) sERROR NUMBER 

71 041172 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
72 041176 004736 JSR PC,a(SP)+ ;REPORT WRONG FUNCTION CODE 
73 041200 162716 000010 SUB #10, (SP) sRESTORE (SP) 

74 041204 000240 NOP 

75 041206 15$: 

76 ;REPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER 

77 sERRORS ARE SET, OR IF COMPOSITE ERROR IS NOT SET AND 

78 ;OTHER ERRORS ARE SET 

79 041206 005037 001140 CLR $GDDAT :EXPECT “ERR = 0 

80 041212 005737 001350 TST RMER1I 71S RMER1 = 0?? 

81 041216 001003 BNE 20$ =NO! 

82 041220 005737 001376 TST RMER2I 1S RMERZ = 0?? 

83 041224 001403 BEQ 25$ “YES! 

84 041226 052737 040000 001140 208: iS #ERR,SGDDAT ERR SOULD BE SET 

85 041234 013737 001346 001142 25$: Mov RMDS1,SBDDAT 

B6 041242 042737 137777 001142 BIC #*CERR, SBDDAT 

87 041250 023737 001140 001142 CMP SGDDAT,$BDDAT fe ERR OK?? 

88 041256 001412 BEQ 308 = YES! 

89 041260 062716 000004 ADD (SP) ‘MOVE “Sp TO USER'S ERROR 

90 041264 112776 000047 000000 MOVB af a(sP) ‘WRITE ERROR NUMBER 

91 041272 162716 000002 SUB #2, (SP) *MOVE SP TO ERROR RETURN 

92 041276 004736 JSR PC ,a(SP)+ * REPORT INVALID COMP ERROR 
95 041300 162716 000010 SUB #10, (SP) 

95 REPORT AN ERROR IF “‘TRE'' IS SET AND NONE OF THE BITS WHICH SET 
96 ;TRE IS SET, OR IF TRE 1S NOT SET AND ONE OR MORE BITS WHICH 
97 “SET TRE IS SET 

98 041304 005037 001140 50s: CLR $GDDA SEXPECT “'TRE'' = 0 

99 041310 013746 001344 MOV RAC So .=(SP) [WAS DLT, WCE, UPE, NED, NEM 
100 041314 042726 000377 BIC #377, (SP)¢ [PGE, MXF OR MDPE SET 

10% 041320 001010 BNE 35$ YES!! 

102 041322 032737 040000 001346 BIT #ERR,RMDSI sWAS EXCEPTION RECEIVED?? 
103 041330 001407 BEQ 40$ NO! ! 

104 041332 022737 000030 044574 CMP #SEARCH,515$ :WAS ,DATA TRANSFERRED?? 

105 041340 103003 BHIS 40% ZNO! ! 

106 041342 052737 040000 001140 35$: BIS #TRE,SGDDAT i Re SHOULD BE SET 

107 041350 013737 001334 001142 40$: MOV RMCSiI, SBDDAT BAD DATA FOR TYPEOQUT 

108 041356 042737 137777 001142 BIC #°CTRE.SBDDAT ve 

109 041364 023737 001140 001142 CMP SGDDAT.$BDDAT 1S “TRE'* OK2? 

110 041372 001413 BEQ 458 ZYES 

111 041374 062716 000004 ADD 4, (SP) ‘MOVE "SP TO USER'S ERROR CALL 
112 041400 112776 000014 000000 MOVB ai. acsP) ‘WRITE ERROR NUMBER 

113 041406 162716 000002 SUB #2,(SP) sMOVE SP TO RETURN FOR ERROR 
114 041412 004736 JSR PC, nish sREPORT TRE ERROR 
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SECONDARY ERROR CHECK SUBROUTINE SEQ 0178 
115 041414 162716 000010 SUB #10, (SP) sRESTORE (SP) 
116 041420 000240 NOP 
1? 041422 45$: 
119 3 ,eeereeeeerakaeereereeeeeerereeeekeReeeaeeeteteneeeeteneeeeeeeee 
120 ;USING THE FUNCTION CODE TABLE, CHECK FOR THE FOLLOWING ERRORS: 
121 : .STATUS BITS NOT SET THAT SHOULD BE SET, £.G., ATA AND ILF 
122 : .STATUS BITS SET THAT SHOULD NOT BE SET. E.G.. WCE AND ECH 
123 [NOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER 
124 :STATUS CONDITIONS, £.G., WRITE LOCK ERROR SHOULD ONLY BE SET IF 
125 :WRITE LOCK 1S ON AND THE COMMAND IS A WRITE. 
127 :GET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE 
128 041422 010046 MOV RO,=(SP) ;:PUSH RO ON STACK 
129 041426 013700 044574 MOV 515$,R0 :GET FUNCTION CODE 
130 041430 016037 064406 044566 MOV FNCDTB(RO),500$ :STORE ENTRY 
131 041436 012600 MOV (SP)+,RO ::POP STACK INTO RO 
133 ;REPORT AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR IF 
134 [ATA 1S NOT SET AND SHOULD BE SET. 
135 041440 013737 044566 001140 MOV 500$,$GDDAT :GET EXPECTED ATA STATUS 
136 041446 032737 040000 001346 BIT HERR RMDSI [1S COMPOSITE ERROR SET ?? 
137 041454 001403 BEQ 50$ [NO !! 
138 041456 052737 100000 001140 BIS HATA, SGDDAT SEXPECT AN ATTENTION 
139 041464 042737 077777 001140 50S: Bic #*°CATA,SGDDAT  :STRIP DONT CARES 
140 061472 013737 001346 001142 MOV RMDSI,$BDDAT §:GET RECEIVED ATA 
141 041500 042737 077777 001142 BIC #*CATA,SBDDAT :STRIP DONT CARES 
14¢ 041506 023737 001140 001142 CMP SGDDAT.$BDDAT :1S ATA OK ?? 
143 041514 001413 BEQ 55$ YES !! 
144 041516 062716 000004 ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 
145 041522 112776 000006 000000 MOVB #6.a(SP) [LOAD ERROR # IN CALL 
146 041530 162716 000002 SUB #2. (SP) [MOVE SP TO ERROR RETURN 
167 061534 004736 JSR PC .a(SP)+ ‘REPORT ERROR 
148 041536 162716 000010 SUB #10, (SP) SRESTORE SP 
149 061542 000240 NOP 
130 041544 558: 
152 ;REPORT ERROR IF ILF IS INCORRECT, I.£., IF ILF DOES NOT COMPARE 
153 ‘WITH FUNCTION CODE TABLE 
154 061544 013737 044566 001140 MOV O$,$GDDAT :GET EXPECTED ILF 
155 041552 042737 177776 001140 BIC #*CILF,$GDDAT CLEAR ALL OTHER BITS 
156 041560 013737 001350 001142 MOV RMERII,$BDDAT :GET RECEIVED ILF 
157 041566 042737 177776 001142 BIC #°CILF,S$BDDAT CLEAR ALL OTHER BITS 
158 041574 023737 001140 001142 CMP SGDDAT.$BDDAT :IS ILF OK ?? 
159 041602 001412 BEQ 608 YES !! 
160 041604 062716 000004 ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 
161 061610 112776 000254 000000 MOVB © #254,a(SP) [WRITE ERROR NUMBER IN CALL 
162 041616 162716 000002 SUB #2, (SP) [MOVE SP TO ERROR RETURN 
163 041622 004736 JSR PC .a(SP)+ [REPORT ERROR AND RETURN 
164 041624 162716 000010 SUB #10, (SP) [MOVE SP TO NO ERROR 
165 041630 005037 001140 60$: CLR $GDDAT [CLEAR EXPECTED STATUS 
167 ;REPORT AN ERROR If WCE 1S SET AND SHOULD NOT BE SET 
168 041634 013746 044566 MOV 500$,-(SP) :GET WCE STATUS ENABLE 
169 061640 052716 137777 BIS #*CWCE, (SP) [SET ALL OTHER BITS 
170 041644 013737 001344 001142 MOV RMCS21,$BDDAT  :RECEIVED STATUS 
171 041652 042637 001142 BIC (SP)+,$BDDAT CLEAR WCE IF ENABLED 
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SECONDARY ERROR CHECK SUBROUTINE SEQ 0179 
172 061656 001412 BEQ 908 :BRANCH IF WCE OK 
173 041660 062716 000004 ADD #4, (SP) [MOVE SP TO USER'S ERROR CALL 
174 041664 112776 000026 000000 MOVB #26, a(SP. ;WRITE ERROR NUMBER 
175 041672 162716 00000c SUB #2, (SP) MOVE SP TO ERROR RETURN 
176 041676 004736 JSR PC. a(SP)+ [REPORT ERROR 
177 041700 162716 000010 SUB #16, (SP) TRESTORE ERROR 
178 041704 90$: 
180 :REPORT ERROR IF OPI STATUS 1S SET AND SHOULD NOT BE SET 
181 041706 013746 044566 500$,-(SP) :GET OP] STATUS ENABLE 
182 041710 052716 157777 Bis #*COPI, (SP) [SET ALL OTHER BITS 
183 041714 013737 001350 001142 MOV RMERTI,SBDDAT :GET RECEIVED STATUS 
184 041722 042637 001142 BIC (SP)+,$BDDAT  : CLEAR OPI IF ENABLED 
185 041726 001412 BEQ 00s SBRANCH IF OPI OK 
186 041730 062716 000004 ADD 4, (SP) [MOVE SP TO USER'S ERROR CALL 
187 041734 112776 000164 000000 MOVB abe a(sP) ;WRITE ERROR NUMBER IN CALL 
188 041742 162716 000002 SUB #2, (SP) MOVE SP TO ERROR RETURN 
189 041746 004736 JSR PC .a(SP)¢ “REPORT ERROR 
190 041750 162716 000010 SUB #10, (SP) [RESTORE SP 
191 041754 ; 1008: 
193 ;REPORT ERROR IF vc 1S SET AND IS NOT ENABLED OR IF IvC IS 
194 :SET AND VV IS NOT RESET 
195 041754 013746 044566 MOV 500$,-(SP) 3GET IVC STATUS ENABLE 
196 041760 032737 000100 001346 BIT #VV,RMDS 1 :1S wv SET 
197 041766 001402 BEQ 105$ =NO !! 
198 041770 042716 010000 BIC #lvCc, (SP) [YES = IVC SHOULD BE 0 
199 041774 052716 167777 105$: BIS #*CIVC, (SP) :SET ALL OTHER BITS 
200 042000 013737 001376 001142 MOV RMERSI. ;SBDDAT :GET RECEIVED STATUS 
201 042 042637 001142 BIC (SP)+,$BDDAT  :CLEAR IVC IF ENABLED 
202 042012 001412 BEQ 110$ :BRANCH IF IVC OK 
203 042014 062716 000004 ADD #4, (SP) s;MOVE SP TO USERS ERROR CALL 
206 042020 112776 000165 000000 MOVB #165,a(SP) WR ITE ERROR NUMBER IN CALL 
205 042026 162716 000002 SUB #2, (SP) MOVE SP TO ERROR RETURN 
206 042032 004736 JSR PC .a(SP)+ “REPORT ERROR 
207 042034 162716 000010 SUB #10, (SP) :RESTORE SP TO NO ERROR 
208 042040 1108: 
210 ;B1T 11 (WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
211 > ALL WRITE ERRORS, 1.E., 
212 : RMER1 = WLE, WCF 
213 RMER2 = DPE 
214 RMCS2 = UPE. 
215 SEACH OF THESE ERRORS IS CHECKED TO SEE IF AN ERROR IS SET WHEN THE 
316 ;WRITE ERROR ENABLE BIT IS RESET 
218 ;REPORT AN ERROR IF WLE 1S SET AND WRITE ERRORS ARE NOT ENABLED, OR IF 
219 [THE DRIVE IS NOT WRITE PROTECT ED 
220 042040 012746 177777 MOV #-1,-(SP) TASSUME WRITE ERRORS ENABLED 
221 042044 032737 004000 044566 BIT #WLE ,500$ GARE WRITE ERRORS ENABLED ?? 
222 042052 001404 BEQ 1 :NO ! 
223 042054 032737 004000 001346 BIT #WRL,RMDSI i1s THe DRIVE WRITE PROTECTED ?? 
224 042062 001002 BNE 1208 = YES 
225 042 042716 004000 115$: BIC ‘RESET “WLE ENABLE 
226 042070 013737 001350 001142 120$: MOV entail: SBDDAT [GET RECEIVED STATUS 
227 042076 042637 001142 BIC (SP)+,$BDDAT  :CLEAR WLE IF ENABLED 
228 042102 001412 BEQ 125$ [BRANCH IF WLE OK 
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SECONDARY ERROR CHECK SUBROUTINE SEQ 0180 


229 042104 062716 000004 ADD sMOVE SP TO USERS ERROR CALL 
230 042110 112776 000023 000000 MOVB #34. stSP) ‘WRITE ERROR NUMBER IN CALL 
231 042116 162716 000002 SUB #2, (SP) [MOVE SP TO ERROR RETURN 

232 042122 004736 JSR PC.a(SP)+ [REPORT ERROR AND RETURN 

233 042124 162716 000010 SUB #16, (SP) SRESTORE SP TO NO ERROR 

334 042130 125$: 

236 REPORT ERROR IF WCF i SET AND WRITE ERRORS ARE NOT ENABLED 
237 042130 012746 177777 #-1, sASSUME WRITE ERRORS ENABLED 
238 042134 032737 004000 044566 Bit wut, “5008 PARE WRITE ERRORS ENABLED ?? 
239 042142 001002 BNE 130$ “YES 

240 042144 042716 000040 BIC #WCF, (SP) ‘DISABLE WCF ERROR 

241 042150 013737 001350 001142 130%: MOV RMER11,SBDDAT ;GET RECEIVED STATUS 

242 042156 042637 001142 BIC (SP)+,$BDDAT  :RESET WCF IF ENABLED 

243 042162 001412 BEQ 135$ ‘BRANCH IF WCF OK 

244 042164 062716 000004 ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 
245 042170 112776 000025 000000 MOVB #25,a(SP) [WRITE ERROR NUMBER IN CALL 
246 042176 162716 000002 SUB #2,(SP) [MOVE SP TO ERROR RETURN 

247 042202 004736 SR PC .a(SP)+ =REPORT ERROR 

248 042204 162716 000010 SUB #10, (SP) SRESTORE SP TO NO ERROR 

349 2210 135$: 

251 :REPORT ERROR IF DPE 18 SET AND WRITE ERRORS ARE NOT ENABLED 
252 042210 012746 177777 #-1,-(5P :ASSUME WRITE ERRORS ARE ENABLED 
253 042214 032737 004000 044566 BT out. 5008 GARE WRITE ERRORS ENABLED ?? 
254 042222 001002 BNE 1408 :YES 

255 042224 042716 000010 BIC #DPE RESET “DPE ENABLE 

256 042230 013737 001376 001142 140%: MOV RRERSI SBDDAT 3GET RECEIVED STATUS 

257 042236 042637 001142 BIC (SP)+, $BDDAT :RESET DPE IF ENABLED 

258 042242 001412 BEQ 145$ [BRANCH IF OPE OK 

259 042244 062716 000004 ADD #4, (SP) *MOVE SP TO USERS ERROR CALL 
260 042250 112776 000040 000000 MOVB #40,a(SP) [WRITE ERROR NUMBER IN CALL 
261 042256 162716 000002 SUB #2, (SP) MOVE SP TO ERROR RETURN 

262 042262 004736 JSR PC a(SP)+ [REPORT ERROR 

263 042264 162716 000010 SUB #10, (SP) [RESTORE SP TO NO ERROR 

264 042270 145$: 

266 ;REPORT AN ERROR IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED 
267 042270 012746 177777 MOV #-1,-(SP) ASSUME WRITE ERRORS ARE ENABLED 
268 042274 032737 004000 044566 BIT #WLE,500$ SARE WRITE ERRORS ENABLED ?? 
269 042302 001002 BNE 1508 :YES 

270 042304 042716 020000 BIC #UP + OTSABLE UPE ERROR 

271 042310 013737 001344 001142 150%: MOV auceot SBDDAT :GEI RECEIVED STATUS 

272 042316 042637 001142 BIC (SP)+,$BDDAT ESET UPE IF ENABLED 

273 042322 001412 BEQ 155$ +3 IF UPE OK 

274 042324 062716 000004 ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 
275 042330 112776 000024 000000 MOVB © #24,a(SP) ‘WRITE ERROR NUMBER IN CAL 

276 042336 162716 000002 SUB #2, (SP) [MOVE SP TO ERROR RETURN 

277 042342 004736 JSR PC .a(SP)¢+ [REPORT ERROR AND RETURN 

278 042344 162716 000010 SUB #16, (SP) :MOVE SP TO NO ERROR 

379 042350 155$: 

281 :REPORT AN ERROR If IE Is SET AND IS NOT ENABLED 

282 042350 0137466 044566 MOV 500$, :GET IAE ENABLE 

283 042354 052716 175777 BIS a°CIAE, tsp) [SET ALL OTHER BITS 

284 042360 013737 001350 001142 MOV RMERII.$BDDAT :GET RECEIVED STATUS 

285 042366 042637 001142 BIC (SP)¢, *$BDDAT >CLEAR 1AE IF ENABLED 
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001142 
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MACRO VO3.01 11-APR=80 13:17:48 PAGE 25-5 
BEQ 1608 ;BRANCH IF JAE 1S 
ADD #4, (SP) ‘MOVE SP 10, USERS PRROR CALL 
000000 MOVB =: #166, a(sP) iWRITE ERROR NUMBER 
SUB #2, (SP) MOVE SP TO ERROR RETURN 
JSR PC a(SP)+ “REPORT ERROR AND RETURN 
SUB #16, (SP) ‘MOVE SP TO NO ERROR 
160$: 
;BIT 09 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
> ALL READ/WRITE E ERRORS, 1.E., 
; RMCS2 = 4g NEM, MXF 
: RMDS = iBT 
: RMER1 = AOE 
:NOTE 
LBT IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED 
;CYLINDER REGISTER IS WRITTEN 
aa AOE CANNOT BE SET IF LBT IS NOT ALSO SET 
; TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE 
;REPORT AN ERROR IF DLT IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 
MOV #-1,-(SP) ASSUME ERRORS ARE ENABLED 
044566 BIT #AOE ,500$ :ARE ERRORS ENABLED ?? 
BNE oss = YES 
BIC RESET “DLT ENABLE 
001142 165%: MOV Rncs3I: SBDDAT SGET RECEIVED STATUS 
BIC (SP)+,$BDDAT | :CLEAR DLT IF ENABLED 
BEQ 708 ‘BRANCH IF DLT IS OK 
ADD (SP) :MOVE SP TO USERS ERROR CALL 
000000 MOVB #33 a(SP) ‘WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) [MOVE SP TO ERROR RETURN 
JSR PC .a(SP)+ “REPORT ERROR AND RETURN 
SUB #10, (SP) ‘MOVE SP TO NO ERROR 
1708: 
;REPORT ERROR IF fen 18 SET AND READ/WRITE ERRORS ARE NOT ENABLED 
MOV #-1,-(SP) sASSUME ERRORS ARE ENABLED 
044566 BIT #AOE, Sb0$ SARE ERRORS ENABLED ?? 
BNE 1758 ZYES 
BIC #NEM ‘ OTSABLE NEM 
001142 175$: MOV. RACSSI SBDDAT [GET RECEIVED STATUS 
BIC (SP)+,$BDDAT | :CLEAR NEM IF ENABLED 
BEQ 180$ ‘BRANCH IF NEM IS OK 
ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 
000000 MOVB =: #167, a( SP) :WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) [MOVE SP TO ERROR RETURN 
JSR PC.a(SP)+ [REPORT ERROR AND RETURN 
SUB #10, (SP) :MOVE SP TO NO ERROR 
180$: : 
;REPORT ERROR IF MXF 1S SET AND READ/WRITE ERRORS ARE NOT ENABLED 
ag MOV #-1,-(SP) sASSUME ERRORS ARE ENABLED 


BIT #AOE ,500$ sARE DATA ERRORS ENABLED ?? 
BNE 185$ 3VES. ?! 


SEQ 0181 


343 042574 
345 04 


SEFESE 
FERRELEEL 


WWAWI NWA nw 


FW CO OOnNOU Fw —-OVDane 


Www 


369 042730 
370 
4 eg 


377 042730 
378 042736 
379 042740 
380 042746 
381 


382 
383 042746 


395 043026 
396 


397 
398 043026 
399 043032 


04 


MH rornnr—frwr 
SN EON 
Ne Ne 
POON WES 


042 


So 

Ww 
NNN EO NNON ENS 
WN NS WOW E 
PAAASOMUNNONMNE NO 
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001000 
001344 
001.142 


000004 
000033 
000002 


000010 


177777 
001000 


002000 
001000 
001350 
001142 
000004 
000020 
000002 


000010 


002000 
000200 


177777 
000200 


000400 
001350 
001142 


000004 
000035 
000002 


000010 


177777 
000200 
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001142 


000000 


044566 
001346 


001142 


000000 


001366 
044566 


044566 


001142 


000000 


044566 | 


DISABLE MXF ERROR 
GET RECEIVED STATUS 


IS 0 
'MOVE SP _TO USERS ERROR CALL 
;WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 


SREPORT ERROR AND RETURN 
;MOVE SP TO NO ERROR 


DATA ERRORS ARE NOT ENABLED 


ASSUME DATA ERRORS ARE — 
nO DATA ERRORS EANBLED ? 


WR LBT ALSO SET ?? 


SDT SABL E AOE 

3GET a naa en STATUS 

sCLEAR AOE IF ENABLED. 
;BRANCH IF AOE IS OK 

:MOVE SP TO yo ERROR CALL 
;WRITE ERROR NUMBER 

:MOVE SP TO ERROR RETURN 


:REPORT ERROR AND RETURN 
;MOVE SP TO NO ERROR 


(HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 


sRESET THE wee BIT (HCE) IF HEADER ee INHIBIT IS SET 
BIT #HC1,RMOF | Bt HCI SET 


BIC 
185$: MOV RnCSSI, Sao0at 
BIC +, $80 
BEQ 1308 
ADD #4, (SP) 
MOVB #38, a( SP) 
SUB #2, (SP) 
JSR ©C a(SP)+ 
SUB #16, (SP) 
190$: 
:REPORT ERROR IF AOE IS SET AND 
MOV -1,-(SP) 
BIT #AOE ,500$ 
BEQ 191$ 
BIT #LBT,RMDSI 
BNE 958 
191$: BIC 
195%: MOV RAeRil. SBDDAT 
BIC (SP) +, $BDDAT 
BEQ 00$ 
ADD #4, (SP) 
MOVB  -#20,a( SP) 
SUB #2, (SP) 
JSR PC a(SP)+ 
SUB #10, (SP) 
2008: 
:BIT 07 
THEADER ERRORS, I.E. 
: RMER1 - HCRC.HCE,FER 
: RMER2 - BSE 
BEQ 1 
BIC #HCE ;500$ 
2018: 
:REPORT AN ERROR IF HERE 1S SET 
MOV #-1,-(SP 
BIT #HCE, 5008 
BNE 205$ 
BIC #HCRC, (SP) 
205$: MOV RMER11,$BDDAT 
BIC (SP) +, $BDDAT 
BEQ 2108 
ADD SP) 
MOVB 43. SSP) 
SUB #2, (SP) 
JSR PC.a(SP)+ 
SUB #16, (SP) 
2108: 


;REPORT ERROR IF HCE 1S SET AND 
#-1,-(SP) 


MOV 
BIT WCE ,5008 


't 
:YES = DISABLE ALL HEADER ERRORS 


AND HEADER ERRORS cant NOT ENABLED 


ASSUME ERRORS ENABLED 
:ARE | HEADER ERRORS ENABLED ?? 


‘DISABLE HCRC 
GET RECEIVED STATUS 


RESET HCRC IF ENABLED 


ho ag IF HCRC IS OK 
OVE SP TO USERS ERROR CALL 
MR ITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 


TREPORT ERROR AND RETURN 
:MOVE SP TO NO ERROR 


HEADER ERRORS ARE Pang Sac 


ASSUME ERRORS ENA 
SARE ERRORS ENABLED ?? 





rc —— ee 
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400 ok tre 001002 
401 04 Bs £18 900800 
; 043046 01 ie 001350 
4035 043054 042637 001142 
og 144 001412 
405 043062 062716 000004 
043066 112776 000036 
407 043074 162716 000002 
408 043100 004736 
409 043102 162716 000010 
| 410 043106 
411 
412 
413 043106 012746 177777 
414 043112 032737 000200 
415 043120 001002 
416 043122 or548 0020 
417 0463126 013737 001350 
418 043134 0462637 114 
419 043140 001412 
420 043142 062716 
421 043146 112776 000037 
422 043154 162716 000002 
423 043160 004736 
424 043162 162716 000010 
425 043166 
| 426 
j 427 
| 428 043166 012746 177777 
$0 03200 Soros °°020° 
| 431 063202 042716 100000 
432 043206 013737 001376 
433 043214 042637 001142 
434 043220 001412 
435 043222 062716 000004 
436 043226 112776 000354 
437 043234 162716 000002 
438 043240 004736 
439 043242 162716 000010 
440 043246 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 043246 ote e8 17777 
452 063252 032737 000100 
453 043260 001002 
454 043262 pest: 00040 
455 pease 013737 001344 
456 043274 042637 00114 


001142 


090000 


044566 


001142 


000000 


044566 


001142 


000000 
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BNE 
BIC #HCE, (SP) 
215$: MOV RMER11,SBDDAT 
BIC (SP)+,$BDDAT 
BEQ 2208 
ADD #4, (SP) 
MOVB =: #36, a( SP) 
SUB #2, (SP) 
JSR PC a(SP)+ 
SUB #16, (SP) 
2298: 
;REPORT ERROR IF FER 1S SET AND 
MOV #-1,-(SP) 
BIT #HCE 5008 
BNE 2258 
BIC #FER, (SP) 
225$: MOV RMERII,SBDDAT 
BIC (SP)+, $BDDAT 
BEQ 2308 
ADD 84, (SP) 
Move =: #37 ac se) 
SUB 82,46 
JSR PC als, vs 
SUB 016, (Se: 
2308: 
;REPORT ERROR IF BSE IS SET AND 
MOV 8-1, -(SP) 
BIT ence ,5008 
2358 
BIC #BSE, (SP) 
235%: MOV RMER2] ,SBDDAT 
BIC (SP)+, $BDDAT 
BEQ 2408 
ADD #4, (SP) 
MOVE #354, a(SP) 
SUB #2, (SP) 
JSR PC .a(SP)+ 
SUB #16, (SP) 


044566 


001142 


2408: 


YES !! 

ISABLE HCE 
sGET RECEIVED STATUS 
sCLEAR HCE JF ENABL 


sMOVE S$ 

sWRITE ERROR NUMBER IN CALL 
sMOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


HEADER ERRORS ARE NOT ENABLED 
ASSUME FER IS ENABLED 
ay HEADER ERRORS ENABLED ?? 


o 
» 
wm 
ad 
wm 
4 
wom 
mmr 
"De 


BRANCH 
sMOVE SP TO USERS ERROR CALL 
sWRITE ERROR NUMBER IN CALL 
sMOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


HEADER ERRORS ARE NOT ENABLED 
ASSUME ERRORS ENABLED 
— THEY ENABLED ?? 


7YES 

sDISABLE BSE 

7GET RECEIVED STATUS 

;CLEAR BSE IF ENABLED 
;BRANCH IF BSE OK 

sMOVE SP TO USERS ERROR CALL 
;WRITE ERROR NUMBER 

sMOVE SP TO ERROR RETURN 
sREPORT ERROR AND RETURN 
sMOVE SP TO NO ERROR 


sB1T 06 OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA 
sFIELD ERRORS, 1.€ 


; RMCS2 = MDPE 
: RMER] = DCK,ECH 
sNOTE: 


ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND 


TDCK IS SET. 


sREPORT ERROR IF MOPE JS SET AND 1S NOT ENABLED 
MOV #-1,-(SP) UME 


245%: MOV 
B 


#E CH, 5008 
2458 


ROPE (SP) 
RMCS21,$BDDAT 
(SP)+, $BDDAT 


ZASSUME ENABLED 
i ARE DATA FIELD ERRORS ENABLED ?? 
[DISBALE MDPE 

[GET RECEIVED STATUS 

[CLEAR MDPE IF ENABLED 


SEQ 0183 


“ono 
m~ 
o 


RANAOD RMOS/ 
ONDARY ERROR 
457 043 
458 Be é 
459 
460 043314 
461 04 $9 
rr | 043322 
4635 043526 
464 
tee 0433 
ug? 043588 
468 043340 
469 043342 
470 043346 
471 043354 
472 043360 
473 043362 
474 043366 
475 063374 
476 043400 
477 043402 
478 043406 
479 
480 
481 
482 
483 
484 043406 
485 043412 
486 043420 
487 043422 
488 043430 
489 043432 
90 043440 
491 043442 
492 043446 
493 0463454 
0434 
495 043462 
0434 
497 043474 
498 043500 
499 043502 
043506 


aon 


ge=98 
SITIES Os 
SFooen 


— 
o 
~ 


oo 
LA 
Wwe 
ONO 


So=SSFrorsS 
SOON TNO 


Ne 
We NI 
oe 


_ 
o 


oo 
we 
wwe 
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: 


—~ 
ww 


o—-SSFlFSasas 
—~o nin 
SOOormnnews 


& 


— 
o 
o 


NL_TST 2 
K SUBROUTINE 


000004 
000027 
000002 
000010 


177777 
000106 


1000 
0013 
11 


00 
0 
001142 


5 
4 
000004 
000030 
000002 


000010 


177777 
000100 
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BEQ 2508 ;BRANCH IF MDPE OK 
ADD #4, (SP) ZMOVE SP TO USERS ERROR CALL 
000000 mOVB ag? .a(SP) ZWRITE ERROR NUMBER IN CALL 
SUB #2, (SP) [MOVE SP TO ERROR RETURN 
JSR PC .a(SP)+ SREPORT ERROR AND RETURN 


SUB #16, (SP) [MOVE SP TO NO ERROR 


2508: 


sREPORT ERROR IF DCK IS SET AND DATA FIELD ERRORS ARE NOT ENABLED 
Vv #-1,-(SP) ; NAB 


MO . ZASSUME ENABL 
044566 BIT #ECH, 5008 TARE THEY ENABLED ?? 
BNE 255$ sves !! 
BIC #0CK, (SP) :DISABLE DCK 
001142 255%: MOV RMERTI,SBDDAT GET RECEIVED STATUS 
BIC (SP)+,$B0D4T [CLEAR DCK IF ENABLED 
BEQ 2608 [BRANCH JF DCK IS OK 
ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 
000000 MOvB #30, a(SP) [WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) “MOVE SP TO ERROR RETURN 


of 
JSR PC ,a(SP)+ 


SUB #16, (SP) [MOVE SP TO NO ERROR 


2608: 
;REPORT ERROR IF ECH IS SET AND, 
s DATA FIELD ERRORS ARE NOT ENABLED, OR 
3 EC] 1S SET, OR 
é DCK IS NOT SET. 
MOV #-1,-(SP) 7ASSUME ENABLED 
044566 a #ECH,500$ ——on ENABLED ?? 
001366 BIT #EC1,RMOFI 318 EC] SET ?? 
BNE 5$ zYEs !! 
001350 BIT #OCK ,RMERII 31S DCK ALSO SET ?? 
BNE 2708 zYES !! 
265$: BIC #ECH, (SP) ;DISABLE ECH 
001142 2708: MOV RMER] SBDDAT 3GET RECEIVED STATUS 


BIC (SP)+,$BDDAT § :CLEAR ECH IF ENABLED 
2758 : 


BEO ‘BRANCH IF ECH IS OK 
ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 
000000 MOVB =: #31, a( SP) [WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) [MOVE SP TO ERROR RETURN 
JSR PC a(SP)+ [REPORT ERROR AND RETURN 
#10, (SP) ‘MOVE SP TO NO ERROR 


2758: 


[REPORT ERROR AND RETURN 


1 


& 

5 043506 
6 043514 

? 043516 
§ 

10 063522 
11 043530 
12 043532 
13 063540 
14 043542 
15 043546 
16 063554 
17 043560 
18 043564 
19 043566 
20 043572 
21 
22 

23 043574 
24 043602 
25 043610 
26 043614 
27 
28 0436 
29 0436 
4 043632 
32 043640 
33 043646 
34 043650 
35 043656 
36 043662 
37 043670 
38 043674 
39 043676 
40 043702 
41 
42 

43 043704 
44 043706 
45 043712 
46 
47 043716 
48 043722 
49 043730 
30 043732 
52 043736 
53 043742 
54 045746 
55 043750 
56 

57 


oO 
— 
—UN ow 


MMPI 
ro 
SasatcaansS=S 


oS-SSa5 


3 


_ 
o 
™m 

VAN NONNONSE 


S oon Esee =F 


— AHO 


SoSooo~o NUN NN 
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000030 
044540 


001336 
040000 


001414 
000010 
001414 
001140 
001340 
000004 
000016 
000002 
000010 


001336 
001412 


000400 
000002 


000002 


000004 
000002 
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044574 


001142 
001334 


000000 


001140 
001140 


001140 
001344 
001140 
001340 
001142 
000000 


001410 


Ss; e@eeereeeraterereeeereeeerrerereneereeeenereteneneeeaeetereeeesete 


;*PERFORM THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS 


CMP WSEARCH,515$ | :WAS DATA TRANSFERRED ? 
BLO 80$ [BR IF YES 
JMP 558% 3NO - EXIT 
“REPORT ERROR IF RMWC NOT ZERO AND TRE IS ZERO 
2808: Rov pawCl . $B0DAT ;WORD COUNT ZERO?? 
s¥ 
BIT #TRE,RMCSII S TRANSFER ERROR DETECTED?? 
BNE 285$ YES! ! 
ADD #4, (SP) 
MOVE «#18, aC SP) ZERROR NUMBER 
CLR DOAT :GCOD DATA FOR TYPEOUT 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ [REPORT WORD COUNT NOT ZERO 
SUB #16, (SP) SRESTORE (SP) 
NOP 
“REPORT ERROR IF RMBA IS NOT CORRECT 
585$: Mov RMWCi,$GDDAT | ;GET WORD COUNT AT END OF TRANSFER AND 
SUB RMWCO,$GDDAT § : SUBTRACT STARTING WORD COUNT. 
ASL GDDAT :* 2 
ADD RMBAO,SGODAT § : ADD STARTING BUS ADDRESS 
eI #BAL,RMCS21 :WAS BUS ADDRESS INHIBIT (BAI) SET ?? 
MOV RMBAO,SGDDAT § : ADDRESS SHOULD NOT HAVE CHANGED 
2908: CMP SGDDAT,RMBAl BUS ADDRESS OK?? 
BEQ 95$ SYES!! 
MOV RMBA1,SBDDAT §_:BAD DATA FOR TYPEOUT 
ADD #4, (SP) 
MOVB #16, a( SP) ZERROR NUMBER 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC .a(SP)+ [REPORT UNEXPECTED ADDRESS 
SUB #16, (SP) SRESTORE (SP) 
NOP 
-COMPUTE NUMBER OF SECTORS TRANSFERRED FROM WORD COUNT 
595$: CLR -(SP) ;NUMBER OF SECTORS TRANSFERRED 
MOV RMWC1,-(SP) [GET WORD COUNT AT END OF TRANSFER AND 
SUB RMWCO. (SP) SSUBTRACT STARTING WORD COUNT. 
MOV #256. ,-(SP) sASSUME 256. WORDS PER SECTOR 
BIT WBITI.RMCS1O =: HEADER & DATA COMMAND ?? 
BEQ 3008 =NO !! 
ADD #2, (SP) [CHANGE TO 258. WORDS PER SECTOR 
300$: INC 4(SP) s INCREMENT SECTOR COUNT 
SUB (SP) ,2(SP) [SUBTRACT ONE SECTOR'S WORTH 
BGT [CONTINUE IF NOT DONE 
CMP (SP)+,(SP)¢ TRESTORE STACK 


;COMPUTE EXPECTED SECTOR, TRACK 


AND CYLINDER ADDRESS FROM 


CZRMNAO RMOS/3/2 FCTNL TST 2 
SECONDARY ERROR CHECK SUBROUTINE 


5 

59 043752 01 AN 001444 
60 043760 013737 001416 
61 0437 013737 1461 

62 063774 013737 00133 

63 044002 000337 044576 
re: 044006 005237 044576 
66 044012 042737 000377 
67 0644020 000337 044570 
68 044024 posi a? 177400 
69 044032 062637 044572 
71 064036 023727 044572 
72 044044 te | 

73 044066 005237 044570 
74 044052 162737 000040 
4 044060 000766 

77 044 023737 044570 
78 044070 103407 

79 0440 005237 044566 
80 044076 163737 044576 
81 044104 000766 

Hh 044106 000240 

84 

85 044110 

86 044110 005037 001140 
87 044114 023727 044566 
88 044122 101407 

89 044126 032737 002000 
90 044132 001003 

91 044134 012737 002000 
92 044142 013737 001346 
93 044150 042737 175777 
94 044156 025737 001140 
95 044164 001413 

96 044166 062716 000004 
97 044172 112776 000017 
98 044200 162716 000002 
99 044204 004736 

100 044206 162716 000010 
10? 044212 000240 

108 

104 044214 005037 001140 
105 044220 032737 002000 
106 peeees 001031 

107 0442 023727 044566 
108 ree | Nees 

109 044240 005737 044570 
110 044244 pools 

111 044266 005737 044572 
112 044252 001007 

113 044254 032737 000010 
114 044262 001413 
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044566 MO pCO, 500$ sSTORE ORIGINAL CYLINDER 
04457 MOV RMDAO, 505$ *STORE ORIGINAL TRACK 
044572 MOV RMDAO, 5108 >STORE ORIGINAL SECTOR 
044576 MOV LSTRE, 5208 TSTORE LAST TRACK, 
SWAB 20$ :GET TRACK ADDRESS TO LO BYTE AND 
INC 5208 S INCREMENT TO GET TOTL # OF TRACKS. 
044570 BIC #*C<TADMSK>, 505$ :SAVE TRACK ADDRESS BITS AND 
SWAB sé ;SWAP TRACK ADDRESS TO LOw BYTE. 
044572 BIC #*C<SADMSK>, 5108 sSAVE SECTOR ADDRESS BITS 
ADD (SP)+,510$ 
000040 3108: CMP 510$,#32. :SECTOR OVEFLOWED?? 
BLO 315$ =NO! ! 
INC 505$ SINCREMENT TRACK 
044572 SUB #32.,5108 [ADJUST SECTOR 
BR 3108 [TRY AGAIN 
044576 315%: CMP 505$,5208 : TRACK OVERFLOWED?? 
BLO 3208 NO! ! 
INC 500$ S INCREMENT CYLINDER 
044570 SUB 520$,505$ [AD/UST TRACK 
BR 315$ [TRY AGAIN 
NOP 
REPORT ERROR IF "'LBT’’ 1S NOT CORRECT 
CLR SGDDAT :SET GOOD DATA FOR LBT = 0 
001466 CMP 500$,#822. :SHOULD LBT BE SET?? 
BLOS 325% zNO!! 
001350 BIT #IAE RMERTI [WAS IAE SET ?? 
BNE 325$ [YES = LBT SHOULD NOT BE SET 
001140 MOV #LBT,SGDDAT [SET GOOD DATA FOR LBT = 
001142 325$: MOV RMDSI,$BDDAT | :BAD DATA FOR TYPEOUT 
001142 BIC #*CLBT,SBDDAT 
001142 CMP SGDDAT,SBDDAT  ;1S LBT CORRECT?? 
BEQ svESs!! 
ADD #4, (SP) 
000000 MOVB = #17, a( SP) ZERROR NUMBER 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC .a(SP)+ [REPORT LBT 1S WRONG 
SUB #16, (SP) [RESTORE (SP) 
NOP 
“REPORT ERROR IF ‘AOE’ 1S INCORRECT 
$308: CLR © SGDDAT ;SET FOR AOE = 0 
001350 BIT #LAE,RMERTI ZWAS “‘IAE’ DETECTED?? 
BNE 40$ TYES-""AOE’’ SHOULD BE ZERO 
001466 CMP 500$,#822. [SHOULD AOE BE SET?? 
BLOS 3408 NO! ! 
TST 05$ MAYBE 
BNE 335$ ZYES 
TST 5108 
BNE 35$ rYES 1! 
044574 BIT #F2,515% “WAS THIS READ OR WRITE CHECK ?? 
BEQ 40% “NO !! 
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001140 
Te 
00114 

001142 
001142 


000000 


001350 
001140 
001140 


001142 
001142 


000000 


335$: 


3408: 


;REPORT 
45$: 


$45 


>REPORT 
S0$: 


350 


355$: 


TST RMWC I 

BEQ 3408 

MOV #AOE , SGDDAT 
CLR 505$ 

MOV #1,5108 

MOV RMER1I1,$BDDAT 
BIC #*CAOE , SBDDAT 
CMP SGDDAT,SBDDAT 
BEQ 345$ 

ADD #4, (SP) 

MOVB #20,a(SP) 

SUB #2, (SP) 

JSR PC .a(SP)+ 

SUB #16, (SP) 

NOP 

ERROR IF RMDA IS NOT COR 
BIT #IAE,RMERTI 
BNE 

MOV 505$,$GDDAT 
SWAB  —- $GDDAT 

MOVB 510$,$GDDAT 
MOV RMDAI, SBDDAT 
CMP SGDDAT ,SBDDAT 
BEQ 350$ 

ADD #4, (SP) 

MOVB #21, a(SP) 

SUB #2, (SP) 

JSR PC a(SP)+ 

SUB #10, (SP) 

NOP 

ERROR IF RMDC IS INCORRE 
MOV 00$, $GDDAT 
BIC #°C1777, $GDDAT 
MOV RMDC1, $BDDAT 
CMP SGDDAT, SBDDAT 
BEQ 355$ 

ADD #4, (SP) 

MOVB = #22,a(SP) 

SUB #2, (SP) 

JSR PC a(SP)+ 

SUB #16, (SP) 

NOP 

ADD #4, (SP) 

TSTB. ss @( SP) 

BEQ 3608 

ADD #4, (SP) 

BR 365$ 

SUB #4, (SP) 

RTS PC 

.WORD 0 

*wORD 0 

"WwORD 0 

"wORD 0 


7WAS ALL DATA TRANSFERRED ?? 
-YES wt 


;SET FOR AOE = 1 
CLEAR EXPECTED TRACK 
sEXPECT SECTOR = 
BAD DATA FOR TYPEOUT 


31S AOE CORRECTY?? 
ves! ! 


ERROR NUMBER 

;MOVE SP TO RETURN FOR ERROR 
REPORT AOE IS WRONG 
sRESTORE (SP) 


RECT 

WAS THERE AN IAE ERROR ?? 
YES = DONT CHECK RMDA,RMDC 
;SETUP EXPECTED DISK ADDRESS 


sSETUP RECEIVED DISK ADDRESS 
;COMPARE EXPECTED & RECEIVED 
BRANCH IF EQUAL 


;ERROR NUMBER 

;MOVE SP TO RETURN FOR ERROR 
REPORT BAD DISK ADDRESS 
sRESTORE (SP) 


CT 
sSETUP EXPECTED CYLINDER 


;SETUP RECEIVED CYLINDER 
;COMPAPE CYLINDERS 
;BRANCH IF EQUAL 


;ERROR NUMBER 
;MOVE SP_TO RETURN FOR ERROR 


“REPORT BAD CYLINDER 
“RESTORE (SP) 


sMOVE (SP) TO ERROR CALL 

;WAS ERROR FOUND?? 

sMOVE (SP) TO ERROR RETURN 
sMOVE (SP) TO NO ERROR RETURN 
; CYLINDER 
; TRACK 


SECTOR 
FUNCTION CODE 


SEQ 0187 
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SECONDARY ERROR CHECK SUBROUTINE SEQ 0188 


172 044576 000000 5208: .wORD 0 :# OF TRACKS FOR DEVICE UNDER TEST = LAST 
4 e ; TRACK + 1 TRACK 
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COMPOSITE ERROR CHECK SUBROUTINE SEQ 0189 


} -SBTTL COMPOSITE ERROR CHECK SUBROUTINE 
3 THIS SUBROUTINE CHECKS THE STORED CONTENTS OF RMER1 AND 
4 ;RMER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS 
5 MASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER 
, THE MASKS ARE APPLIED. 
8 3CALL: 
9 7) JSR PC, CMPERRSTS 
10 : . WORD MASK FOR ERROR REGISTER 1 
11 : «WORD MASK FOR ERROR REGISTER 
12 : BR 22? RETURN HERE IF NO ERROR 
13 3 NOP RETURN HERE TO REPORT AN ERROR 
14 : ERROR ERROR NUMBER DET INED BY SUB 
15 : JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
18 ; 72? RETURN HERE IF NO MORE ERRORS 
18 NOTE: BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 
yy 3;BE ZERO 
¢ 044600 CMPERRSTS: 
23 ;MASK AND STORE THE CONTENTS OF RMER1T AND RMER2 
24 044600 013737 001350 001176 MOV RMER11,$1MP1 STORE RMER1 AT TEMP STORAGE 
25 044606 047637 000000 001176 BIC a(SP),STMP1 MASK —s RMER1 
26 044614 062716 000002 ADD #2, (SP) MOVE SP TO NEXT 
27 044620 013737 001376 001200 MOV RMER21,$TMP2 STORE RMER2 AT 1 STORAGE 
$8 044626 047637 000000 001200 BIC a(SP) ,STMP2 > MASK RMER2 
30 
31 CLEAR USER'S ERROR CALL 
32 044634 062716 000006 ADD #6, (SP) MOVE SP TO USER'S ERROR CALL 
33 044640 105076 000000 CLRB a(sP) CLEAR ERROR NUMBER 
. 044644 162716 000004 SUB #4, (SP) [LEAVE SP AT NO ERROR RETURN 
36 sSEE IF THERE WERE ANY ERRORS IN weet, 1.€., STMP1 
37 044650 005737 001176 TST STMP1 Y ERRORS TO REPORT?? 
38 044654 001420 BEQ 5$ oy 
39 044656 913737 001176 001142 MOV S$TMP1,SBDDAT ‘RECEIVED STATUS FOR TYPEOUT 
40 044 005037 001140 CLR $GDDAT s EXPECTED STATUS FOR TYPEOUT 
41 044670 062716 000004 ADD #4, (SP) MOVE SP TO USER'S ERROR CALL 
42 044674 112776 000066 000000 MOVB #66,a(SP) ; CORREC TABLE DATA CHECK ERROR # 
43 044702 162716 000002 SUB #2, (SP) MOVE SP TO RETURN FOR ERROR 
44 0447 004736 JSR PC ,a(SP)+ “REPORT ERROR VIA USER 
45 044710 162716 000010 SUB #10, (SP) ;MOVE SP BACK TO BRANCH 
46 0464714 000240 NOP 
4 044716 S$: 
4 
49 SEE IF THERE ARE ANY ERRORS TO REPORT IN RMER2 (S$TMP2) 
50 044716 005737 001200 TST $TMP2 ANY ERRORS IN RMER2? 
51 044722 001420 BEQ 10% 3;NO!! 
53 044724 013737 001200 001142 MOV STMP2. SBDDAT RECEIVED STATUS FOR TYPEOUT 
54 044732 005037 001140 CLR $GDD sEXPECTED STATUS FOR TYPEOUT 
55 044736 062716 000004 ADD a4 OsP) MOVE SP TO USER'S ERROR CALL 
56 044742 112776 000067 000000 MOVB #67 ,a(SP) sWRITE ERROR NUMBER IN USER'S CALL 
57 044750 162716 000002 SUB #2, (SP) sMOVE SP TO RETURN FOR ERROR 
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COMPOSITE ERROR CHECK SUBROUTINE SEQ 0190 
58 044754 004736 JSR PC, a(SP)+ :REPORT ERROR VIA USER 
59 044756 162716 000010 SUB #10, (SP) ‘MOVE SP TO NO ERROR RETURN 
60 044762 000240 NOP 
6) 044764 108: 
63 : AUGMENT ale RETURN ADDRESS IF ANY ERROR WAS DETECTED 
64 044764 062716 000004 #4, (SP) sMOVE SP TO USER'S ERROR CALL 
65 044770 105776 000000 te18 asp) [WAS THERE AN ERROR CALLED?? 
66 044774 1403 BEQ 208 ‘NO! ! 
67 044776 062716 000004 ADD #4, (SP) sYES - MOVE SP TO ERROR RETURN 
68 045002 000402 BR 30$ 
69 045004 162716 000004 208: SUB #4, (SP) sMOVE SP TO NO ERROR RETURN 
70 045010 000207 30$: RTS PC “RETURN TO USER 


71 
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DEVICE SELECT SUBROUTINE SEQ 0191 


} .SBTTL DEVICE SELECT SUBROUTINE 
; ; THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE 
5 . 
6 3; CALL: 
7 (1) so SR PC ,DEVSEL 
» 7(2) BR 77 RETURN IF NO. ERROR 
9 :(3) NOP RETURN IF ERR 
19 :(4) ERROR ERROR DEFINED “oy SUBROUTINE 
le 045012 DEVSEL: 
14 ZCLEAR USER® S ERROR CALL 
15 065012 062716 000004 #4, (SP) :MOVE SP TO USER'S ERROR 
16 065016 105076 000000 CLRB asp) :CLEAR LOW ORDER BYTE OF CALL 
1 045022 162716 000004 SUB #4, (SP) [MOVE SP BACK 
19 SAVE USER’ S INFORMATION AND SETUP REGISTERS 
20 045026 013746 000004 ERRVEC,-(SP) ;;PUSH ERRVEC ON STACK 
045032 013746 000006 ROY ERRVEC4+2,=(SP) PUSH ERRVEC+2 ON STACK 
045036 010046 MO / RO,-(SP) : :PUSH rd'ON STAC 
045040 010146 MOV R1,-(SP) =PUSH R1 ON STACK 
21 045042 012737 045162 000004 MOV #20$,ERRVEC :SETUP FOR BUS TIMEOUT 
22 045050 012737 000300 000006 MOV #PROERRVEC4+2 
23 065056 013700 001276 MOV SBASE RO :RO = UNIBUS ADDRESS 
24 045062 013701 001464 MOV TSTQUE,R1 [R1 POINTS TO DEVICE NUMBER 
26 ;SELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE 
27 045066 111160 000010 MOVB  (R1),RMCS2(RO) ;WRITE UNIT SELECT BITS 
28 045072 016037 000000 001176 MOV RMCS1(RO),STMP1 GET "DVA'' STATUS 
29 045100 016037 090010 001174 MOV RMCS2(RO).$TMPO :GET “'NED'’ STATUS 
31 045106 032737 010000 001174 BIT #NED ,STMPO iis DEVICE NONEXISTENT ? 
32 045114 001407 BEQ 10$ NO! 
33 045116 062766 000004 000010 ADD #4,10(S move SP TO USERS ERROR CALL 
34 0451246 112776 000111 000010 MOVB #11 "a OCSP) [WRITE ERROR NUMBER 
35 045132 422 BR 30$ 
37 045134 032737 004000 001176 10S: BIT #DVA,STMP1 i1S DEVICE AVAILABLE ? 
38 045142 001021 BNE 35$ “YES! 
39 045144 062766 000004 000010 ADD #4,10(SP) [MOVE SP TO USERS ERROR CALL 
40 065152 112776 000112 000010 MOVB Hie, a10(SP) ‘WRITE ERROR NUMBER 
$3 045160 000407 BR 30$ 
43 “HANDLE BUS T!MEQUT 
44 045162 022626 20S: CMP (SP)+, (SP)+ ZADJUST SP 
45 045164 062766 000004 000010 ADD #4, 10(SP) [MOVE SP TO USERS ERROR CALL 
46 065172 112776 000113 000010 MOVE = #113 a10<SP) ‘WRITE BUS TIMEOUT ERROR NUMBER 
47 045200 162766 000002 000010 308: SUB #2,10(SP) TADJUST RETURN TO "NOP" PRECEDING 
48 [THE ERROR CALL 
4 
50 “RESTORE USERS DATA AND RETURN TO ADDRESS ON STACK 
51 045206 $5: 
045206 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
045210 012600 MOV (SP)+_RO ::POP STACK INTO RO 
045212 012637 000006 MOV (SP) + ERRVEC#2 ::POP STACK INTO ERRVEC#2 
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DEVICE SELECT SUBROUTINE SEQ 0192 


045216 012637 000004 MOV (SP)+*,ERRVEC 3;POP STACK INTO ERRVEC 
2 945222 000207 RTS PC sEXIT 
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001444 
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001417 


001416 
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001350 
001376 


001142 
000000 


001140 
046462 
001466 
046462 


001333 


000055 


«SBTTL SEEK STATUS CHECK SUBROUTINE 


TA 


s THIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TE S 
STOR HE PUT BUFFER. 


STS USING 
;STORED IN THE GET BUFFER AND TEST PARAMETERS STOR ED INT 
THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED 


ZAFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE ‘‘ERROR’’ TRAP 
: OF THE CALLING ROUTINE. SEEK STATUS IS CHECKED AS FOLLOWS: 


S CALL: 
341) JSR PC,SEKSTS 
: BR 27? RETURN HERE IF NO ERROR 
: NOP RETURN HERE TO REPORT AN ERROR 
: ERROR ERROR NUMBER DEFINED BY SUB 
; JSR PC,a(SP)+¢ GO BACK TO SUB FOR MORE ERROR CHECKS 
3 77? RETURN HERE IF NO MORE ERRORS 
' SEKSTS: 


:CLEAR USERS’ ERROR CALL 
NOP 


sMOVE (SP) TO ERROR CALL 
MBER 


CLRB a(SP) ;CLEAR ERROR NU 
SUB #4, (SP) MOVE (SP) TO NO ERROR RETURN ~ . 
CLR 300$ ;CLEAR ERROR FLAGS 


sTEST FOR MASSBUS CONTROL BUS oa ¥' a tee WHEN WRITING 
LOCAL ts ERS, “PAR 1 "DPE" 


R ee 


=H aPAR oRMERTI uns) NPARITY ERROR DETECTED?? 
BIT #DPE ,RMER21 sWAS IT 43 TO CONTROL BUS?? 
BNE 1$ NOT SURE! 


;REPORT oo PARITY ERROR VIA aoe S ERROR CALL 
CLR $GDDAT 


is: 


SEXPECTED STATUS 

MOV RMER II SBDDAT RECEIVED STATUS 

#4, (SP) MOVE STACK TO USER'S ERROR 
#56. asp) TERROR #50 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ 
SUB #10, (SP) ;RESTORE STACK 
BR :IAE SHOULD BE ZERO 


sDETERMINE THE VALUE OF “‘IAE'’ STATUS BASED ve TRACK, SECTOR AND CYLINDER 
;ALSO, SET ‘'SKI"* IF yt tee ADDRESS IS TOO LARGE. 
MOV #IAE ,SGDDAT SETUP FOR AE = j 
BIS #SK1, 3008 SETUP FOR SKI = 1 
CMP RMDCO, #822. GREATER THAN LAST CYLINDER ? 
BHI 3$ :YES = CYLINDER IS INVALID 
BIC #SK1,300% CLEAR SKI ERROR FLAG 


RMDAO+1,LSTRK+1 ;GREATER THAN LAST TRACK ? 
BH] 3$ YES = TRACK IS INVALID 


RMDAO, #29. SECTOR > 29. ? 
2% :BR IF NO 


SEQ 0193 
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SEEK STATUS CHECK SUBROUTINE SEQ 019% 
58 045400 032737 010000 001442 BIT #FMT16,RMOFO ;18 BIT FORMAT ? 
59 045406 001406 BEQ 3$ [YES = SECTOR 1$ INVALID FOR 18 BIT MODE 
60 045410 123727 001416 000037 CMPB ss RMDAO, #31. ‘SECTOR > 31. 
6 045416 101002 BH] 3$ YES SECTOR is INVALID 
63 045420 005037 001140 2$: CLR SGDDAT :""IAE"’ SHOULD = 0 
65 - COMPARE uf XPECTED AND RECIEVED “IAE'’ STATUS 
66 045424 013737 001350 001142 $$: RMERI1,$BDDAT ;1S IAE OK?? 
67 045432 042737 175777 001142 Bic #*CIAE.SBODAT  :SAVE JAE BIT FOR COMPARE 
68 045440 737, 001140 001142 CMP SGDDAT.$BDDAT CORRECT JAE’ STATUS ? 
69 045446 001004 BNE 5$ BR IF NO 
70 045450 042737 040000 046462 BIC #SK1,300$ “CLEAR SKI FLAG 
71 045456 000413 BR 5$ 60 CHECK Ten ERROR 
72 045460 35$: 
73 ;REPORT —s ? STATUS VIA USER'S ERROR CALL 
74 065460 062716 000004 ADD (SP) 
75 045464 112776 000051 000000 MOVB ast. a(sP) SERROR 51 
76 045472 162716 000002 SUB #2, (SP) *MOVE SP TO RETURN FOR ERROR 
77 045476 004736 JSR PC,a(SP)+ ;REPORT INCORRECT JAE 
78 045500 162716 000010 SUB #10, (SP) sRESTORE (SP) 
79 045504 000240 NOP 
80 045506 5$: 
82 ;REPORT ANY IVC ERROR AS 
83 : IVC ERROR WITH VOLUME VALID ZERO 
84 ; ERRONEOUS IVC ERROR, VOLUME VALID IS SET 
85 045506 032737 010000 001376 BIT #IVC,RMERZI :1VC ERROR? ? 
86 045514 001427 BEQ 52$ <NO! 
87 045516 005037 001140 CLR SGDDAT EXPECTED Seaaed 
88 045522 013737 001376 001142 MOV RMER21,$BDDAT  ;RECEIVED S 
89 045530 062716 000004 ADD #4, (SP) ;MOVE SP 10. useR® S ERROR 
90 045534 112776 000060 000000 MOVB #60,a(SP) TERROR 60 IF VV = 0 
91 045542 032737 000100 001346 BIT #VV~RMDSI 
92 045550 001403 BEQ 51$ 
93 045552 112776 000061 000000 MOVB #61,a(SP) sERROR 61 IF vw = 1 
94 045560 162716 000002 518: SUB #2, (SP) sMOVE SP TO RETURN FOR ERROR 
95 045564 004736 JSR PC,a(SP)+ ‘REPORT ERROR VIA USER 
96 045566 162716 000010 SUB #10, (SP) TRESTORE SP 
97 045572 000240 NOP 
99 045574 013737 001376 001142 52$: MoV RMER21,$BDDAT  ;RECEIVED STATUS 
100 045602 042737 137777 001142 BIC #*°CSKI,$BDDAT CLEAR DONT CARES 
101 045610 013737 046462 001140 MOV 300$, $GDDAT :GET EXPECTED SKI S$” “TUS 
102 045616 042737 137777 001140 BIC W*CSKI,SGDDAT :CLEAR DONT CARES 
103 045624 001417 BEQ 53$ [BRANCH IF 0 EXPECTED 
105 ;REPORT ERROR IF SKI IS NOT SET (IAE WAS NOT perecree? 
106 045626 032737 040000 001142 BIT #SK1,S$BDDAT :WAS SKI DETECTED ? 
107 045634 001032 BNE 54$ “YES 
108 045636 062716 000004 ADD #4, (SP) “MOVE *§p TO USERS ERROR CALL 
109 045642 112776 000267 000000 MOVB 267, a(SP) ;WRITE ERROR NUMBER 
110 045650 162716 000002 SUB #2, (SP) “MOVE SP TO ERROR RETURN 
111 045654 004736 JSR PC .a(SP)+ ‘REPORT ERROR. AND RETURN 
112 045656 162716 000010 SUB #10, (SP) ‘MOVE SP TO NO ERROR 
113 045662 000443 BR 6$ *GO TO NEXT ERROR CHECK 
114 045664 538: 





_ CZRMNAO RMO5/3/2 FCTNL TST 2 
| SEEK STATUS CHECK SUBROUTINE 
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;REPORT _ IF SKI IS SET 
8 #SK1,$B 


045664 032737 040000 001142 IT 1, $BDDAT :1$ SKI SET 2? 
045672 001413 BEQ 4 :NO = SKI IS OK 
045674 062716 000004 ADD #4, (SP) [MOVE (SP) TO ERROR 
045700 112776 000054 000000 MOVB #54,a(SP) ‘LOAD ERROR NUMBER 
045706 162716 000002 SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
45712 004736 JSR a(sP)+ SREPORT SEEK ERROR 
045714 162716 000010 SUB AT (SP) SRESTORE (SP) 
045720 000240 NOP 
“REPORT ANY DEVICE CHECK 
045722 032737 000200 001376 54$: BIT #DVC,RMERZI :WAS THERE DVC DURING SEEK?? 
045730 001420 BEQ 6$ “NO! ! 
045732 005037 001140 CLR $GDD EXPECTED STATUS 
045736 013737 001376 001142 MOV ave AL, ,SBDDAT SRECEIVED STATUS 
045744 062716 000004 ADD Dp 
045750 112776 000055 000000 mova 3s #55, SSP) sERROR #55 
045756 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
045762 004736 JSR PC.a(SP)+ =REPORT ERROR VIA USER 
045764 162716 000010 SUB #10, (SP) sRESTORE SP 
045770 000240 NOP 
:REPORT ANY “‘OPI'’ ERROR AS OPI ITH MOL = 0, OR OPI 
“BECAUSE ON CYLINDER LATCH DIDN'T RESET 
045772 032737 020000 001350 6$: BIT #OP1,RMER1I :“0P1"* ERROR?? 
046000 001427 BEQ 8$ :NO! 
046002 005037 001140 CLR $GDDA + EXPECTED STATUS 
046006 013737 001350 001142 MOV RvR sSBDDAT TRECEIVED STATUS 
046014 062716 000004 ADD #4 ‘MOVE (SP) TO ERROR 
046020 112776 000052 000000 MOVB #53. stSP) ‘LOAD ERROR NUMBER 
046026 032737 010000 001346 BIT #MOL ,RMDSI ; WAS \MEDIUM ON LINE?2 
046034 001403 BEQ 7$ NO! 
046036 112776 000053 000000 MOVB «#53, (SP) rth - CHANGE ERROR NUMBER 
046044 162716 000002 7$: SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
046050 004736 JSR PC a(SP)+ [REPORT "‘OP1'’ ERROR 
046052 162716 000010 SUB #10, (SP) *RESTORE (SP) 
046056 000240 NOP 
-SEE IF "'PIP’' = 0, AND "ATA", MOL’ AND "vv" = 1 
046060 013746 001346 R$: MOV RMDSI1,-(SP) 
046064 042716 047677 BIC #°C<ATA'!PIP! MOL! VV>, (SP) 
046070 022726 110100 CMP #ATA!MOL ‘VV, (SP)4 
046074 001002 BNE 9% sERROR IN RMDS 
046076 000137 046432 JMP 14$ =RMDS 1S OK 
-REPORT ERROR IF MOL = 0 AND OPI = 0 
046102 010000 001346 9s: BIT #MOL .RMDS1 :1S MOL RESET?? 
046110 ; BNE 10$ NO - MOL IS SET 
046112 020000 001350 BIT #OP1,RMER11 “WAS OPI SET 
046120 BNE 10$ [YES = DONT REPORT ERROR 
046122 001346 001140 MOV RMDSI,$GDDAT §:EXPECTED STATUS 
0466130 010000 001140 BIS #MOL ,$GDDAT 
046136 001346 001142 MOV RHOS I gSB0DA :RECEIVED STATUS 
046144 000004 ADD 
046150 000062 000000 MOVB 465 aC eP) 
046156 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 


SEQ 0195 


r-— - cnn a 


CZRMNAO RMOS/3/2 FCTNL TST 2 
SEEK STATUS CHECK SUBROUTINE 


17 046162 004736 
173 046164 162716 000010 
174 046170 000240 
176 
177 046172 032737 020000 
178 046200 001430 
179 046202 032737 040000 
180 046210 001024 
181 046212 013737 (01346 
182 O46220 042737 020000 
183 046226 013737 001346 
184 046234 062716 000004 
185 046260 112776 000056 
186 0462466 162716 000002 
187 046252 004736 
188 046254 162716 000010 
189 046260 000240 
1 
192 046.262 032737 100000 
193 046270 001024 
194 066272 013737 001346 
195 046300 052737 110600 
196 046306 013737 001346 
197 046314 062716 000004 
198 046320 112776 000057 
199 046 $$ 167716 000002 
200 046332 004736 
302 046334 162716 000010 
| 203 046340 000240 
| $08 
! 
206 046342 032737 000100 
207 046350 001030 
208 046352 032737 010000 
| 209 046360 001024 
210 046362 013737 001346 
211 046370 052737 0001 
212 046376 013737 001346 
213 046604 062716 000004 
214 046610 112776 000066 
215 046616 162716 000002 
216 046422 004736 
217 046424 162716 000010 
218 0464 000240 
219 0464632 
220 
221 
222 046432 000240 
23 046434 062716 000004 
2% 046440 105776 000000 
25 066444 001403 
26 046446 062716 000004 
7°? 046452 000402 
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JSR PC a(SP)+ ;REPORT ERROR VIA USER 
SUB #16, (SP) 
NOP 
“REPORT AN ERROR IF PIP’ 1S STIL SET AND SKI NOT SET 
001346 0s: g1 #PIP,RMDSI :18 PIP STILL SET?? 
001376 BIT #SK1,RMERZI SWAS "'SKI''SET?? 
BNE 11$ SYES=DONT REPORT PIP 
001140 MOV RMDSI,$GDDAT  §; EXPECTED STATUS 
001142 BIC #PIP,SBDDAT 
001142 MOV RMDSI{,$BDDAT RECEIVED STATUS 
ADD #4, (SP) ‘MOVE (SP) TO ERROR 
000000 MOVB #56,a(SP) [LOAD ERROR NUMBER 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ [REPORT "'PIP’’ SET AFTER SEEK 
SUB #16, (SP) :RESTORE (SP) 
NOP 
“REPORT AN ERROR IF “‘ATA’ IS NOT SET 
001346 118: BIT #ATA,RMDSI sWAS "ATA SET 2? 
BNE 13$ SYES!! 
001140 MOV RMDSI,SGDDAT EXPECTED STATUS 
001140 BIS #ATA'MOL ‘DPR! DRY .SGDDAT 
001142 MOV RMDSI,$BDDAT  ;RECEIVED STATUS 
ADD #4, (SP) ‘MOVE (SP) TO ERROR 
000000 MOVB #57, a(SP) “LOAD ERROR NUMBER 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ : REPORT ATTENTION NOT SET DURING 
SUB #10, (SP) SRESTORE (SP) 
NOP 
-REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO 
001346 13$: BIT #VV,RMDSI 218 vw = 0 ?? 
BNE 14$ NO! ! 
001376 BIT #IVC,RMERZI [1S IvC ALSO 0 ?? 
BNE 14$ ‘NO = IVC IS SET 
001140 MOV RMDSI,$GDDAT EXPECTED STATUS 
001140 BIS #VV,SGDDAT 
001142 MOV RMDSI1,$BDDAT §; RECEIVED STATUS 
ADD #4, (SP) 
000000 MOVB «#64, (SP) SERROR #64 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC .a(SP)+ 
SUB #10, (SP) 
NOP 
148: 
MODIFY THE RETURN ADDRESS IF AN ERROR WAS DETECTED 
ADD #4, (SP) :MOVE (SP) TO ERROR CALL 
STB. aa ( SP) “WAS ERROR CALLED?? 
BEQ 15$ NO! ! 
ADD #4, (SP) [MOVE TO ERROR RETURN 
BR 16$ 


SEQ 0196 


C1 
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StEK STATUS CHECK SUBROUTI SEQ 0197 


eitze ieee 000004 15$: SUB #4, (SP) sMOVE (SP) TO NO ERROR RETURN 
60 20 168: RTS PC RETURN 


0466462 000000 3008: .wORD 0 sERROR FLAGS 


CZRMNAO RMOS/3/2 FCTNL TST 2 
CONTROLLER CLEAR SUBROUTINE 
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000004 
046540 
000300 
001276 
000040 
001464 
000010 


000004 
000007 
000002 


000006 
000004 
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000010 


~SBTTL CONTROLLER CLEAR SUBROUTINE 


s THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS, 
7 AND DRIVES, THEN SELECTS THE DRIVE. 


t CALL: JSR PC, ,CNTCLR 
; BR 27? 

B4 NOP 

b4 ERROR 

; 77? 

CNTCLR: 


1 


MOV RO,-(SP) 


MOV spacer ERRVEC #2 


MOV BASE ,RO 
MOV ort RMCS2(RO) 
MOV TSTQUE ,R1 
MOvB (R1) ,RACS2(RO) 
BR 20% 

0$: CMP (SP)+,(SP)+ 


SUB #2,10(SP) 


208: 
MOV (SP)*,ERRVEC+2 
MOV (SP)+, ERRVEC 
MOV (SP)+,R1 


MOV ($P)+,RO 
RTS FC 


RETURN HERE IF NO ERROR FOUND 
RETURN HERE IF ANY ERROR FOUND 
SUB DEFINES ERROR NUMBER 


;3PUSH RO ON STACK 
;PUSH R1 ON STACK 
; PUSH ep ON STAC 
PUSH PRRVEC #2 ON STACK 
; SETUP FOR BUS TIMEOUT 


;RO = UNIBUS ADDRESS 
;CLEAR MASSBUS 

GET DEVICE UNDER TEST 
SELECT DEVICE 


sADJUST STACK 

;MOVE SP TO USER'S ERROR CALL 
;WRITE THE ERROR NUMBER 
ADJUST SP TO RETURN TO ERROR 


;POP STACK INTO ERRVEC+2 
POP STACK INTO ERRVEC 
‘pop STACK INTO R1 
3:POP STACK INTO RO 


SEQ 0198 


CZRMNAO RMOS/3/2 FCTNL TST 2 
STATUS CHECK SUBROUTINES 


BNO VF WN $0 OONOA VEWN OOOO VFWwh— 


SSS SS Shae saab onhunwe 


046602 
046602 062716 000004 
6606 105076 000000 
046612 162716 000004 
1 066616 013737 001334 
2 046624 042737 100000 
3 046632 012737 004200 
046640 0237357 001140 
046646 001413 
046650 062716 000004 
046654 112776 000126 
046662 162716 000002 
9 04 004736 
0 046670 162716 000010 
$3 046674 000240 
43 046676 005037 001140 
44 046702 013737 001340 
45 046710 001413 
46 046712 062716 000004 
47 066716 112776 000127 
48 046724 162716 000002 
49 046730 004736 
50 046732 162716 000010 
51 046736 000240 
53 046740 013737 001344 
54 046746 010146 
55 046750 005046 
56 046752 013701 001464 
57 046756 111116 
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-SBTTL STATUS CHECK SUBROUTINES 


Sl, eteeeeereereneeeerereeeereerrerererereneeeeeeeTeneereeeneeeeTee 


SBTTL CONTROLLER CLEAR STATUS CHECK SUBROUTINE 


s THIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON 
sSTATUS STORED IN THE GET BUFFER. THIS SUBROUTINE SHOULD ONLY BE 
sUSED FOLLOWING A CONTROLLER CLEAR OPERATION, 1.£., WRITING A 1 IN BIT 
35 OF RMCS2, BECAUSE THE ERROR MESSAGES ARE BASED 0! THAT CONDITION. 


sSTATUS PERTINENT TO THE DEVICE IS NOT CHECKED. IN PARTICULAR, THE 
sFOLLOWING STATUS BITS ARE NOT CHECKED: 


: ATA, ERR, PIP, MOL,WRL,LBT.PGM,VV,OM,UNS, SKI,D\C 
CALL 
(1) SR PC, CLRSTS 
; BR 273 RETURN HERE IF NO ERROR 
: NOP RETURN HERE TO REPORT AN ERROR 
: ERROR ERROR NUMBER DEFINED BY SUB 
; JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
; 77? RETURN HERE IF NO MORE ERRORS 
CLPSTS: 
ZCLEAR USER'S ERROR CALL 
ADD #4, (SP) :MOVE SP TO ERROR 
CLRB saa SP) [CLEAR ERROR NUMBER 
SUB #4, (SP) ‘MOVE SP BACK TO NO ERROR 
;REPORT ERROR IF RMCS1 NOT INITIALIZED 
001142 4s: MOV RMCSII1,$BDDAT  ; VERIFY RMCS1 
001142 BIC #SC,SBODAT SIGNORE SPECIAL CONDITION 
001140 MOV #DVA'RDY,SGDDAT :EXPECT DVA & RDY 
001142 CMP SGDDAT,SBDDAT  : COMPARE EXPECTED, RECEIVED 
BEQ 5$ [BRANCH IF EQUAL 
ADD #4, (SP) [MOVE SP TO USER'S ERROR CALL 
000000 MOVB =: #126, a( SP) :WITE ERROR NUMBER IN CALL 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ [REPORT ERROR VIA USER 
SUB #10, (SP) ‘MOVE SP BACK TO NO ERROR 
N 
“REPORT ERROR IF RMBA NOT RESET 
§$: CLR SGDDAT ZVERIFY RMBA IS ZERO 
001142 MOV RMBAI,SBDDAT 
BEQ 7$ :BRANCH IF ZERO 
ADD #4, (SP) [MOVE SP TO USER'S ERROR CALL 
000000 MOVB #127,a(SP) ‘WITE ERROR NUMBER IN CALL 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ [REPORT ERROR VIA USER 
SUB #16, (SP) [MOVE SP BACK TO NO ERROR 
“REPORT ERROR IF RMCS2 NOT INITIALIZED 
001142 7$: MOV RMCS21,$BDDAT  ;VERIFY RMCS2 « 
MOV = 3;PUSH R1 ON STACK 
CLR -(§P) :EXPECT IR & UNIT NUMBER 
MOV TSTQUE,R1 [Rl = ADDRESS OF TEST QUE 
MOVB = (R1) , (SP) 


SEQ 0199 


F 16 
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CONTROLLER CLEAR STATUS CHECK SUBROUTINE , SEQ 0200 

58 046760 05271 000100 BIS #IR 
59 046764 012637 001140 MOV (SPS, *SGDDAT 
60 046770 012601 MOV (SP)+_R1 ::;POP STACK INTO R1 
61 046772 023737 001140 001142 CMP SGDDAT,SBDDAT = COMPARE EXPECTED & RECEIVED 
62 047000 001413 BEQ 98 [BRANCH IF 

047002 062716 000004 ADD mov E SP TO mit S ERROR CALL 
64 047006 112776 000130 000000 MOVB r140° axSP) WITE ERROR NUMBER IN CALL 
65 067014 162716 000002 SUB #2, SP) MOVE SP TO RETURN FOR ERROR 
66 047020 004736 JSR PC ,a(SP)¢ “REPORT ERROR VIA USER 
67 047022 162716 000010 SuB #16, (SP) [MOVE SP BACK TO NO ERROR 
68 047026 000240 
69 -REPORT ERROR 1F eed NOT RESET~ IGNORE UNS 
70 047030 005037 001140 3s: $GDDAT ZVERIFY RMER1 
71 067034 013737 001350 001142 aby RMER11,$BDDAT 
72 047042 042737 040000 001142 BIC #UNS , SBDDAT SIGNORE UNSAFE 
73 047050 001413 BEQ 138 [BRANCH IF ZERO 
74 067052 062716 000004 ADD TMOVE SP TO USER'S ERROR CALL 
75 047056 112776 000131 000000 move #i$t. "3(SP) ;WITE ERROR NUMBER IN CALL 
76 067064 162716 000002 SUB #2, (SP “MOVE SP TO RETURN FOR ERROR 
77 047070 004736 JSR PC aisP)e ;REPORT ERROR VIA USER 
78 047072 162716 000010 SuB #10, (SP) [MOVE SP BACK TO NO ERROR 
79 067076 000240 
80 sREPORT eanen IF RMMR1 NOT gee gp oan WC,LS,LST 
81 047100 013737 001360 001142 13$: Mov RMMR1I1,$BDDAT ; VERIF 
82 047106 042737 000046 001142 BIC #WCILS'LST, $BDDAT ET ENO RE WORD CLOCK, SCT, TRK 
83 047114 012737 000010 001140 MOV #MWD, SGDDAT sEXPECT WRITE DAT 
84 047122 023737 001140 001142 CMP SGDDAT,$BDDAT : COMPARE EXPECTED” aa RECEIVED 
85 047130 001413 BEQ 17$ ;BRANCH H IF 0 
86 047132 062716 000004 ADD #4, (SP) s;MOVE SP TO USER'S ERROR CALL 
87 047136 112776 000133 000000 MOVB #133, a(sP) :WITE ERROR NUMBER IN CALL 
88 047144 162716 000002 SUB #2, (§P) MOVE SP TO RETURN FOR ERROR 
89 047150 004736 JSR PC,a(SP)+ “REPORT ERROR VIA USER 
90 047152 162716 000010 SUB #10, (SP) *MOVE SP BACK TO NO ERROR 
91 047156 000240 NOP 
92 ;REPORT AN ERROR IF RMEC2 IS NOT RESET 
93 047160 005037 001140 i7$: CLR SGDDAT sEXPECT ZEROS 
94 047164 013737 001402 001142 MOV RMEC21,$BDDAT : VERIFY RMEC2=0 
95 047172 001413 BEQ 19$ 
96 047174 062716 000004 ADD #4,(SP) ;MOVE SP TO USER'S ERROR CALL 
97 047200 112776 000135 000000 MOVB #185,a(SP) :WITE ERROR NUMBER IN CALL 
98 047206 162716 000002 SUB #2, (§P) sMOVE SP TO RETURN FOR ERROR 
99 047212 004736 JSR PC,a(SP)+ ;REPORT ERROR VIA USER 
100 047214 162716 000010 _ #16, (SP) s;MOVE SP BACK TO NO ERROR 
10° 047220 000240 
102 ;REPORT sane IF RMMR2 NOT pga ff go RQA,RQB 
103 047222 013737 001374 001142 19$: MOV RMMR21,$BDDAT  ;VERIFY RMMR2 
104 047230 042737 140000 001142 BIC #ROA'ROB, SBDDAT 
105 047236 012737 011777 001140 MOV #1ST!1777, $GDDAL :EXPECT TEST BIT ON 
106 047244 023737 001140 001142 CMP $GDDAT,SBDDAT 
107 047252 001413 BEQ 218 
108 047254 062716 000004 ADD ie SP TO USER'S ERROR CALL 
109 047260 112776 000136 000000 MOVB Hie; a(sP) WITE ERROR NUMBER IN CALL 
110 067266 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
111 067272 004736 JSR PC,a(SP)+ S REPORT ERROR VIA USER 
112 0472746 162716 000010 SUB #16, (SP) ‘MOVE SP BACK TO NO ERROR 
113 047300 000240 NOP 
114 ;REPORT ERROR IF RMER2 NOT RESET-IGNORE SKI,DVC 
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CONTROLLER CLEAR STATUS CHECK SUBROUTINE 


115 067302 005037 001140 


116 047306 013737 001376 
117 067314 042737 040200 
118 047322 001413 
119 0467324 903736 000004 
120 047330 112776 000174 
121 047336 162716 000002 
122 047342 004736 
123 067344 162716 000010 
\s¢ 047350 000240 
126 0467352 013737 001346 
127 067360 042737 177177 
128 047366 012737 000600 
129 0647374 023737 001140 
130 047402 001413 
131 047404 062716 000004 
132 047410 112776 000134 
133 047416 162716 000002 
134 047422 004736 
135 047624 162716 000010 
136 047430 000240 
137 047432 062716 000004 
138 047436 105776 000000 
139 047442 001403 
140 047444 062716 000004 
141 047450 000402 
142 047452 162716 000004 
143 047456 000240 
ca 047460 000207 


218: CLR SGDDAT 


001142 MOV RMERZ1,SBDDAT 
001142 BIC #SK1'DYC, SBDDAT 
BEQ 215$ 
ADD #4, (3P) 
000000 MOVB #174,a(SP) 
#2, (SP) 
jee PC a(SP)+ 
Sug #16, (SP) 
“REPORT ERROR IF RMDS NOT INITIAL 
001142 215%: Mov RMDS1,$BDDAT 
001142 BIC #*C<DRY'DPR>, sepbat 
001140 MOV #DPRIDRY, $GDDAT 
001142 CMP SGDDAT ,SBDDAT 
BEQ 22$ 
ADD #4, (SP) 
000000 MOVB #154,a(SP) 
SUB #2, (SP) 


JSR PC.a(SP)+ 
SUB #10, (SP) 


22s: ADD #4, (SP) 
TSTB a(SP) 
23$ 


ADD #4, (SP) 

BR 248 
23%: SUB #4, (SP) 
248: NOP 

RTS PC 


EXPECT ALL ZEROS 
VERIFY RMER 
: TGNORE DEVICE wr: 
;BRANCH IF OTHER BITS 0 

mf SP TO USER'S ERROR CALL 
WIT E ERROR NUMBER IN CALL 
:MOVE SP TO RETURN FOR ERROR 
;REPORT ERROR VIA USER 
:MOVE SP BACK TO NO ERROR 


IZED 
HY add DRIVE STATUS REGISTER 


EXPECTED DRIVE STATUS 
COMPARE EXPECTED & RECEIVED 
;BRANCH IF EQUAL 

;MOVE SP TO USER'S ERROR CALL 
;WRITE ERROR NUMBER 

:MOVE SP TO RETURN FOR ERROR 


:REPORT ERROR TO USER 
:MOVE SP BACK TO NO ERROR 


;MOVE SP TO ERROR CALL 
+ a ERROE DETECTED?? 


:NO!! 
:YES - MOVE TO ERROR RETURN 
;MOVE SP TO NO ERROR RETURN 


SEQ 0201 
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000004 
000000 
000004 


000100 
001346 


000002 
000010 


010000 
001346 


000002 
000010 


060007 


040000 
001350 
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001346 
001140 
001140 
001142 


000000 


001346 
003140 
001140 
001142 


000000 


001350 


001350 
001142 


6 
2 
SEQ 0202 
-SBTTL PACK ACKNOWLEDGE STATUS CHECK 
; THIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE 
;COMMAND USING THE STATUS STORED IN THE GET BUFFER. ERRORS ARE 
REPORTED TO THE USER VIA THE USER'S ERROR CALL. 
CALL: 


H PC ,ACKSTS 
; 77? RETURN HERE IF NO ERROR 
: NOP RETURN HERE TO REPORT AN ERROR 


ERROR ERROR NUMBER DEFINED BY SUB 
JSR PC,a(SP)+ 60 BACK TO SUB FOR MORE ERROR CHECKS 
22? RETURN HERE IF NO MORE ERRORS 
ACKSTS 
ZCLEAR USER'S ERROR CALL 
ADD #4, (SP) sMOVE SP TO ERROR CALL 
CLRB Ss aC SP) [CLEAR LOW ORDER BYTE 
SUB #4, (SP) :MOVE SP BACK 
:REPORT AN ERROR IF ‘‘vv'' IS 0 
BIT #VV,RMDSI 21S VOLUME VALID SET?? 
BNE 1$ YES! ! 
MOV RMDSI,$GDDAT SEXPECTED STATUS 
BIS #vV,SGDDAT 
MOV RMDSI1 ,$BDDAT sRECEIVED STATUS 
ADD #4, (SP) :MOVE SP TO ERROR CALL 
Move #155,a(SP) ‘WRITE NUMBER IN ERROR CALL 
SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
JSR PC, a(SP)+ SREPORT THE ERROR 
SUB #10, (SP) :MOVE SP BACK TO BRANCH 
NOP 
1$: 
;REPORT 


+} ERROR IF ‘MOL'’ IS 0 


IT #MOL .RMDSI :1S MOL SET?? 
BNE 2$ sYES!! 
MOV RMDSI,$SGDDAT EXPECTED STATUS 
BIS #MOL,$GDDAT 
MOV RMDSI,$BDDAT  ; RECEIVED STATUS 
ADD #4, (SP) [MOVE SP TO ERROR 
MOVB «#41, a( SP) WRITE NUMBER OF ERROR IN CALL 
SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
JSR PC .a(SP)+ *REPORT TH ERROR 
SUB #10, (SP) ‘MOVE SP TO BRANCH 
NOP 
23: 
7 SEE IF "UNS'', OPI’, “RAR ILR'', OR om, g** 1S SET 
BIT #UNS'OPI'RMR'ILR'ILE,RMERT! 
BEQ 7$ 
:REPORT IF UNS" IS SET 


AN ERROR 
BT #UNS ,RMERII 


RMER11,$BDDAT 


:WAS UNS SET?? 


BEQ ;NO!! 
MOV sRECEIVED STATUS 


11 
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PACK ACKNOWLEDGE STATUS CHECK SEQ 0203 

58 047 013737 001350 001140 MOV RMERI1,$GDDAT EXPECTED STATUS 

59 047672 eat 040000 001140 BIC #UNS ,SGDDAT 

60 047700 062716 000004 ADD #4, (SP) :MOVE SP TO ERROR CALL 

61 047704 112776 000042 000000 MOVB #42,a(SP) ‘WRITE NUMBER OF ERROR IN CALL 
62 047712 162716 000002 SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
63 047716 004736 JSR PC a(SP)+ ‘REPORT THE ERROR VIA USER 
64 047720 162716 000010 SUB #16, (SP) [MOVE SP TO NO ERROR RETURN 
65 047724 000240 NOP 

66 047726 38: 

68 ;REPORT ANY OPI ERROR 

69 067726 032737 020000 001350 BIT #OP1,RMERTI :WAS OPI SET 2? 

70 047734 001424 BEQ 4$ =NO!! 

71 047736 013737 001350 001142 MOV RMERII,$BDDAT :RECEIVED STATUS 

72 067744 013737 001350 001140 MOV RMERII.$GDDAT  :EXPECTED STATUS 

73 047752 042737 020000 001140 BIC #OPI,S$GDDAT 

74 047760 062716 000004 ADD #4, (SP) :MOVE SP TO ERROR CALL 

75 047764 112776 000043 000000 MOVB #4$,a(SP) ‘WRITE NUMBER OF ERROR IN CALL 
76 047772 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
77 047776 004736 JSR PC .a(SP)+ [REPORT THE ERROR VIA USER 
78 050000 162716 000010 SUB #10, (SP) [MOVE SP TO NO ERROR RETURN 
79 050004 000240 NOP 

80 050006 4$: 

:REPORT ANY RMR ERROR 
83 050006 032737 000004 001350 BIT #RMR ,RMERTI :WAS RMR SET?? 
050014 001424 BEQ 5$ NO! ! 

85 050016 013737 001350 001142 MOV RMERII,$BDDAT :RECEIVED STATUS 

86 050024 013737 001350 001140 MOV RMERII1.$GDDAl EXPECTED STATUS 

87 050032 042737 000004 001140 BIC #RMR,SGDDAT 

88 050040 062716 000004 ADD #4, (SP) :MOVE SP TO ERROR CALL 

89 050044 112776 000044 000000 MOVB #44,a(SP) ‘WRITE NUMBER OF ERROR IN CALL 
90 050052 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FGR ERROR 
91 050056 004736 JSR PC a(SP)+ [REPORT THE ERROR VIA USER 
92 050060 162716 000010 SUB #10, (SP) [MOVE SP TO NO ERROR RETURN 
93 050064 000240 NOP 

9% 050066 5$: 

:REPORT ANY ILR ERROR 
05 032737 000002 001350 BIT #ILR,RMERTI :WAS ILR SET?? 

98 050074 001424 BEQ 6$ :NO!! 

99 050076 013737 001350 001142 MOV RMER11,$BDDAT :RECEIVED STATUS 
100 050104 013737 001350 001140 MOV RMERII,$GDDAT EXPECTED STATUS 

10? 050112 042737 000002 001140 BIC #ILR,$GDDAT 
102 050120 062716 000004 ADD #4, (SP) :MOVE SP TO ERROR CALL 

103 050124 112776 000045 000000 MOVB #45, a( SP) [WRITE NUMBER OF ERROR IN CALL 
104 050132 162716 000002 SUB #2, (SP ‘MOVE SP TO RETURN FOR ERROR 
105 050136 004736 JSR PC a(SP)+ [REPORT THE ERROR VIA USER 
106 050140 162716 000010 SUB #10, (SP) [MOVE SP TO NO ERROR RETURN 
107 050144 000240 NOP 

iss 050146 6$: 
110 :REPORT ANY ILF ERROR 

111 050146 032737 000001 001350 BIT #ILF RMERTI sWAS ILF SET?? 

112 050154 001424 BEQ 7$ NO! ! 

113 050156 013737 001350 001142 MOV RMERII1,$BDDAT  :RECEIVED STATUS 

114 050164 013737 001350 001140 MOV RMERII.$GDDAT :EXPECTED STATUS 


CZRMNAQ RMOS/3/2 
PACK ACKNOWLEDGE 


050172 


oocooo°o 
MAMA 
Oooooo0co 
Mrorrnrrnnrnnr 


oroonwroe 


Sesooes cF 


TST 2 
S CHECK 


000001 
000004 
000044 
0000: 2 
000010 


000004 
000000 


000004 
000004 


J] 
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001140 
000000 


7$: 
;AUGMENT RETURN 
AD 


8$: 
9s: 


WILF ” 5 ya 
#4, (SP) 


#46, a(SP) 
#2, (SP) 
PC a(SP)+ 
#16, (SP) 


emove SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
;MOVE SP TO RETURN FOR ERROR 


;REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


reat ty IF ERROR + F OUND 


a(SP) 
8$ 

#4, (SP) 
9$ 

#4, (SP) 
PC 


MOVE SP TO ERROR CALL 


:WAS, ERROR FOUND?? 
[YES = MOVE TO ERROR RETURN 
:MOVE SP TO NO ERROR RETURN 


SEQ 0204 


CZRMNAO RMOS/3/2 FCTNL TST 2 


050256 

050256 062716 000004 

050262 105076 000000 

050266 162716 000004 
022011 


050272 03273 
050300 00155 


AYVESWN $0 OONOUESWH—ODOnOUVFwre— 


TOUMINOPINPININRIN RY a st ss ss 
on 


050302 032737 000010 
000010 
050322 013737 001350 


WWW 
UPWN—O”O 
oCcooCoo 
an Aan 
oO oo 
Ww 
v= 
orn 
oo 
ow 
=~ 
on 
rw 
en 


38 050356 serie 000002 
40 050364 162716 000010 


42 050372 

: 

45 050372 032737 000001 

46 050400 001424 

47 050402 013737 00135 

48 050410 042737 000001 

49 050616 013737 00135 

50 050424 062716 000004 

51 050430 112776 000071 

52 050436 162716 000002 

53 050442 004736 

54 050444 162716 000010 
050450 000240 


K 16 
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RECALIBRATE STATUS CHECK SUBROUTINE 


001350 


001350 
001376 
001140 
001140 
001142 


000000 


001350 
001140 
001140 
001142 


000000 


-SBTTL RECALIBRATE STATUS CHECK SUBROUTINE 


s THIS SUBROUTINE CHECKS THE RESULTS OF A a OPERATION 
[USING THE STATUS STORED IN THE GET BUFFER 


3; CALL: 


7) sR :CALL SUBROUTINE 


PC,RCLSTS 
??? RETURN HERE IF NO E 


é RROR 
Ps NOP RETURN HERE TO REPORT AN ERROR 
; ERROR ERROR NUMBER DEFINED BY SUB 
Ps JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
3 ??? RETURN HERE IF NO MORE ERRORS 
RCLSTS: 
3; CLEAR — S et 
CLRB a(SP) ;CLEAR USER'S ERROR CALL 


SUB #4, (SP) sMOVE SP BACK TO BRANCH 


SEE IF ‘PAR’ OR “'ILF' OR “‘OPI"' OR “‘IAE" IS SET 

B11 SPL LPARS ILF 11AE RPERY | 

BEQ 48 ;NONE ARE SET - GO TO NEXT CHECK 
;REPORT ANY MASSBUS CONTROL BUS PARITY ERROR, I.E. 
“PAR = 1 AND “'DPE'’ = 


BIT - Snape not! "PAR" SET?? 


BIT #OPE ,RMER21 :WAS “DPE'’ SET?? 

BNE 1$ YES - NOT A REGISTER ERROR 
MOV cing SGDDAT SEXPECTED STATUS 

BIC #PAR ,SGDDA 


DDAT 
MOV RMER11,$BDDAT RECEIVED. STATUS 
ADD #4,(SP) ;MOVE SP" To USER*S ERROR CALL - 
MOVB #50,a(SP) TE ERROR NUMBER IN CALL 
SUB #2, (SP) Move SP TO RETURN FOR ERROR 
JSR PC a(SP)+ :GO REPORT ERROR 
SUB #10, (SP) ‘MOVE SP BACK TO BRANCH 


REPORT ANY “‘ILF'’ ERROR 
B let 


MOV RMER11,$GDDAT 
BIC #ILF ,SGDDAT 


MOV RMER11,$BDDAT 
#4, (SP) :MOVE SP TO USER'S ERROR CALL 

MOVB = #71, a( SP) sWRITE ERROR NUMBER IN CALL 

SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 

JSR PC a(SP)+ ‘REPORT ERROR VIA USER 

SUB #10, (SP) ‘MOVE SP BACK TO BRANCH 


= Tre SET?? 
‘EXPECTED STATUS 
sRECEIVED STATUS 


2s: 


SEQ 0205 


CZRMNAO RMOS/3/2 FCTNL TST 2 
RECALIBRATE STATUS CHECK SUBROUTINE 


58 

60 

61 050452 032737 020000 001350 

62 050460 001433 

63 050462 013737 001350 001140 

64 050470 042737 020000 001140 

65 050476 013737 001350 001142 
0505 062716 000004 

67 050510 112776 000072 000000 

68 050516 032737 010000 001346 

69 050524 001403 

70 050526 112776 000073 000000 

71 050534 162716 000002 

72 050540 004736 

73 050542 162716 000010 

74 050546 000240 


75 050550 
76 


77 

78 050550 032737 002000 001350 
80 050560 013737 001350 001140 
81 050566 042737 002000 001140 
82 050574 013737 001350 001142 


84 0506 112776 000070 000000 
85 050614 162716 000002 


87 050622 162716 000010 
89 050679 
90 


91 
92 050630 032737 050200 001376 
050636 001517 


95 

96 

99 050640 032737 010000 001376 
100 050646 001433 

10% 050650 013737 001376 001140 
102 050656 042737 010000 001140 
103 050664 015737 001376 001142 
104 050672 062716 000004 

105 050676 112776 000074 000000 
106 050704 032737 000100 001346 
107 050712 001403 

108 050714 112776 000075 000000 
109 050722 162716 000002 

110 050726 004736 

111 050730 162716 000010 

112 050734 000240 

Hi 050736 


;REPORT 


3$: 


31$: 
;REPORT 


4$: 
;SEE IF 


;REPORT 


5$: 


6$: 


L 1 
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ANY "‘OPI"' ERROR AS 

. OPI DUE TO “MOL’ = 0 

. OP] BECAUSE ON CYLINDER LATCH DIDN'T RESET 
BIT #OP1,RMERTI WAS OPI SET?? 

MOV RMERI I -SGDDAT SEXPECTED STATUS 


#OP1,$GD 
MOV RMER{I,SBDDAT RECEIVED STATUS 


ADD #4, (SPS :MOVE SP TO USER'S ERROR CALL 

MOVB #78,a(SP) [WRITE ERROR NUMBER IN USER'S CALL 
BIT #MOL,RMDSI ‘WAS "MOL" = 022 

BEQ 3$ SYES!! 

MOVB #73,a(SP) :NO - CHANGE ERROR NUMBER 

SUB #2, (SP [MOVE SP TO RETURN FOR ERROR 


» (SP) 
JSR PC ,a(SP)+ 


[REPORT ERROR VIA USER 
SUB #10, (SP) 


MOVE SP BACK TO BRANCH 


AN ERROR IF “‘IAE'’ IS SET 
BIT + eae 


MOV RMER11,$GDDAT 
BIC M1AE ,SGDDAT 
MOV gg Pat: 


#4 
MOVB «#70, (SP) 


31S "‘IAE'’ SET?? 
sNO!! 

sEXPECTED STATUS 
RECEIVED STATUS 


:MOVE SP TO ERROR CALL 
WRITE ERROR NUMBER IN USER'S CALL 


SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ *REPORT ERROR 
SUB #10, (SP) :MOVE SP BACK TO NO ERROR RETURN 


"SKI" OR “IvC'’ OR "'DVC’’ IS SET 
BIT ASKISIVC!DVC,RMER2] 
BEQ 8$ ;NONE OF THE BITS ARE SET 


ANY "'IVC'' ERROR AS 
-IvC WITH vv = 0 
oe IvC ERROR 


I #IVC,RMERZ1 sWAS IVC SET?? 
BEQ 6 NO! ! 
MOV RMER21,$GDDAT EXPECTED STATUS 
BIC #IVC,$GDDAT 
MOV RMERCI1,$BDDAT RECEIVED STATUS 
ADD #4, (SP) [MOVE SP TO USER'S ERROR CALL 
MOVB #74,a(SP) [WRITE ERROR NUMBER IN CALL 
BIT #VV~RMDS1 [WAS VV = 022 
BEQ 5$ TYES!! 
MOVB #75,a(SP) ‘NO - CHANGE ERROR NUMBER 
SUB #2, (SP) 


s;MOVE SP TO RETURN FOR ERROR 
;REPORT ERROR VIA USER 
:MOVE SP BACK TO BRANCH 


JSR PC a(SP)+ 
SUB #10, (SP) 


SEQ 0206 


C7RMNAD wns /3/¢ FCTNL 
RECALIBRATE STATUS CHE 
116 050736 032737 
119 os0ree HOrad6 
118 050746 013737 
119 050754 048737 
120 050762 013737 
121 050770 062716 
1g¢ 050774 112776 
123 051002 162716 
124 051006 004736 
125 051010 162716 
126 051014 000240 
127 051016 
128 
129 
130 051016 032737 
131 051024 001424 
132 051096 013737 
135 051054 042737 
134 051042 013737 
135 051050 062716 
136 051054 112776 
137 051062 162716 
138 951066 004736 
"39 051070 162716 
1-0 051074 000240 
11 051076 
14? 
14. 
144 951076 013746 
145 051102 042716 
146 051106 022726 
147 051112 001002 
148 051°14 000137 
149 051120 
150 
151 
152 
153 051120 032737 
154 051126 001030 
155 051130 032737 
156 051136 001024 
157 051140 013737 
158 051146 052737 
159 051154 013737 
160 051162 062716 
161 051166 112776 
162 051174 162716 
163 051200 004736 
166 051202 162716 
165 051206 000240 
166 051210 
167 
168 
169 051210 032737 
170 051216 001030 
171 051220 032737 


TST 2 


040000 
001376 
ety ss 
001376 
000004 


000076 
000002 


000010 


000200 
001376 
000200 
001376 
000004 
000077 
000002 


000010 


001346 
047676 
110100 


051530 


010000 
020000 
001346 
010000 
001346 
000004 
000100 
000002 
000010 


000100 
010000 


8 
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001346 
001350 
001140 


000000 


001346 
001376 


; REPORT on "SKI" ERROR 


81 #SK1,RMERZI sWAS SKI SET?? 
MOV RMER21,$GDDAT EXPECTED STATUS 
BIC #SK1,SGDDAT 
MOV RMERSI,$BDDAT  ;RECEIVED STATUS 
ADD #4, (SP) SMOVE SP TO USER'S ERROR CALL 
MOVB #76,a(SP) [WRITE ERROR R 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ [REPORT ERROR VIA USER 
SUB #16, (SP) ‘MOVE SP TO BRANCH 
NOP 
7$: 
;REPORT ANY "‘DVC"* ERROR 
BIT #DVC ,RMERZI :WAS "DvC'’ SET?? 
BEQ 8&$ sNO!! 
MOV RMER21,$GDDAT [EXPECTED STATUS 
BIC #DVC, $GDDAT 
MOV RMERSI,SBDDAT :RECEIVED STATUS 
ADD #4, (SP) [MOVE SP TO USER'S ERROR CALL 
MOVB #77 ,a( SP) SWRITE ERROR NUMBER 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
SR PC a(SP)+ TREPORT ERROR VIA USER 
Sus #10, (SP) [MOVE SP TO USER'S BRANCH 
8$: 
7SEE If “PIP’ AND OM" ARE 0, AND “‘ATA''."MOL"’ AND “‘Vv"" ARE 1 
MOV RMDS1,-(SP) :PUT RMDS ON STACK 
BIC #°C<PIP! MOL !VV!OM!ATAD, (SP) 
CMP HATA! MOL ‘VV, (SP)¢ 
BNE 85$ 
JMP 13$ 
85$: 
;REPORT AN ERROR IF MOL = 0 AND OPI = 0, I.£., MEDIUM WENT OFF 
TLINE AFTER RECALIBRATE WAS INITIATED 
git MOL ,RMDS1 :D1D MOL DROP?? 
BIT #OP1,RMERT] [WAS OPI] ERROR REPORTED?? 
BNE $ [YES = DON'T REPORT MOL=0 
MOV RMDSI,SGDDAT EXPECTED STATUS 
BIS #MOL , SGDDAT 
MOV RMDSI,$BDDAT RECEIVED STATUS 
ADD #4, (SP) :MOVE SP'TO USER'S ERROR CALL 
MOVB #100, a(SP) :WRITE ERROR NUMBER 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)¢ [REPORT ERROR VIA USER 
sus #10, (SP) :MOVE SP BACK TO USER'S BRANCH 
9S: 
;REPORT AN ERROR IF “‘vv'' = 0 AND “IvC"' = 0 
BI vy .RADS :D1D “vv"" DROP?? 
BIT #IVC.RMERZI TWAS THERE A IVC ERROR?? 


SEQ 0207 


ae 


RMNAO RMOS/3/2 FCTML TST 2 
CALIBRATE STATUS CHECK SUBROUTINE 

172 051226 001 

178 O31 $0 01 rs 001346 001140 
174 051 13737 001346 001142 
175 051264 052737 000100 001140 
176 031252 062716 000004 

177 051256 112776 000101 000000 
178 051264 162716 00002 

179 051270 004756 

180 051272 162716 000010 

181 051276 000240 

182 051 

18 

184 

185 051300 032737 100000 001346 
186 051306 001034 

187 051310 013737 001346 001140 
188 051316 052737 100000 001140 
189 051324 013737 001346 001142 
190 051332 062716 000004 

191 051336 112776 000102 000000 
19¢ 051364 162716 000002 

193 051350 004736 

19% 051352 162716 000010 

195 051356 000240 

197 051360 

198 

199 

200 
201 051360 032737 000001 001346 
202 051366 001424 
203 051370 013737 001346 001140 
204 051376 042737 000001 001140 
205 051404 013737 001346 001142 
206 051412 062716 000004 
207 051416 112776 000103 000000 
208 051424 162716 000002 

209 051430 004736 

210 051432 162716 000010 
311 051456 000240 

12 051440 
21 
214 

215 

216 051440 032737 020000 001346 
217 051446 001430 

218 051450 032737 040000 001376 
19 051456 0010% 

220 051460 013737 001346 001140 
g21 051466 042757 020000 001140 
22 051474 013757 001346 001142 
225 051502 062716 000004 

224 051506 112776 000104 000000 
225 051516 162716 000002 

226 051520 004756 

227 051522 162716 000010 

228 051526 000240 


108: 
:REPORT 


118: 


;REPORT 
s ALWAYS 


12$: 


;REPORT AN ERROR IF ‘'PIP*’ 
;CYLINDE 


| * sates IF ATA i NOT SET 


108 
RMDS1,$GODAT 
RMDS1 , SBDDAT 
tes ,$G00AT 


#161 a<SP) 
_ (8P) 


PC a(SP)+ 
#16, (SP) 


Bala, 

11$ 

RMDS1,S$GDDAT 

#ATA, SGDDAT 

RMDSI . SBDDAT 
(SP) 

#102 a(sP) 

#2, (SP) 

PC a(SP)+ 

#10, (SP) 


AN ERROR IF “‘OM"’ | 
CLEAR OFFSET MODE 


#OM,RMDS1 
12$ 

RMDS1 ,SGDDAT 
#OM,$GDDAT 
RADS| . $BDDAT 
#4, (SP) 

#105, a(sP) 

#2, (SP) 
PC.a(sP)+ 
#10, (SP) 


#PIP,RMDSI 
138 
#SK1,RMER2] 
13$ 


RMDS1,$GDDAT 
P,$GDDAT 


IS STIL ON, 1.€., 


1 
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YES = DONT REPORT vv-0 
SEXPECTED STATUS 
TRECEIVED STATUS 


move SP TO USER*S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETUPN FOR ERROR 


MOVE SP BACK TO USER'S BRANCH 


toy fr ATA SET DURING RECALIBRATE?? 
SEXPECTED STATUS 
sRECEIVED STATUS 


sMOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 


MOVE SP TO USER'S BRANCH 


ZERO BECAUSE RECALIBRATE SHOULD 


a. "om" RESET?? 
EXPECTED STATUS 


RECEIVED STATUS 

MOVE SP TO USER*S ERROR CALL 
sWRITE ERROR NUMBER 

sMOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 

s:MOVE SP TO USER'S BRANCH 


DRIVE NOT ON 
3. DRIVE OFF CYLINDER?? 


WAS "SKI" DETECTED?? 
YES-DONT REPORT ‘‘PJP*’ 


EXPECTED STATUS 


sRECEIVED STATUS 


BODAT 
#4 (SP) "ate SP TO Se go CALL 


woe ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 


;MOVE SP BACK TO USER'S BRANCH 


SEQ 0208 


CZ7RMNAD 
RECALIBR 
3 3 051530 
1 
051530 
ps 051536 
zg 
236 051540 
237 051546 
238 051550 
$23 051556 
40 051564 
241 051572 
eg 051576 
243 051604 
244 051610 
245 051612 
246 051616 
247 051620 
248 
249 
250 051620 
251 051626 
252 051630 
253 051636 
254 051644 
255 051652 
$2$ 051656 
57 051664 
258 051670 
259 051672 
260 051676 
261 051700 
262 
263 
264 051700 
265 051706 
266 051710 
267 051716 
268 051720 
269 051726 
270 051734 
271 051742 
272 051746 
273 051754 
274 051760 
275 051762 
276 051766 
277 051770 
278 
279 
280 051770 
281 051774 
$e 052000 
283 052002 
284 052006 
285 052010 


— N= AI 


—o--—-DO0000 
SoSe—-S2k°8E 
ON FS RMNMNMWwtw— ru 
RN NE 
SeSooo waar 


o 
Ww 
ro 


Se o~seecs 


oO 
Ww 
— NWI 


Ss8o-8S2228S8S 
Snr ww fs 

Pe RRR RR ~ 

Sosooe ANNE NON 


SLOWS O 


RMOS/3/2 FCTNL TST 2 


000003 
900010 


000004 
001350 
00 

000106 


000002 
000010 


040000 
000200 
001350 


000004 
000000 


000004 
000004 
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ATE STATUS CHECK SUBROUTINE 


138: 
;SEE IF mall OR ‘’RMR'’ OR “‘UNS"' I 


$ SET 


001350 #ILRIRMR UNS ,RMERTI 
BEQ 16$ 
;REPORT AN ERROR IF “IR IS $ 
001350 ay #ILRR MERI] "WAS UR SET DURING RECALIBRATE?? 
001140 MOV RMERTI ,SGDDAT SEXPECTED STATUS 
001140 BIC #ILR,$GD 
001142 MOV RMERII. SBDDAT RECEIVED STATUS 
ADD #4 (SP) hove SP'TO USER’ ‘ ERROR CALL 
000000 move «#105, :WRITE ERROR NUMBER iN CALL 
SUB #2, tse) “MOVE SP 10 RETURN FOR ERROR 
JSR PC.a(SP)+ 
SuB #16, (SP) :MOVE SP TO USER'S BRANCH 
14$: 
;REPORT AN ERROR IF “RMR IS SET 
001350 BIT #RMR,RMERTI sWAS RMR SET?? 
BEQ 15$ sNO!! 
001140 MOV MERI. SGDDAT EXPECTED STATUS 
001140 BIC SGDDAT 
001142 MOV RnR SBDDAT RECEIVED STATUS 
ADD P) MOVE SP TO USER'S ERROR CALL 
000000 MOVB #168, a(sP) iWRLTE ERROR NUMBER IN USER'S CALL 
SUB #2, (SP) MOVE SP TO RETURN FOR ERRO 
JSR PC.a(SP)+ *REPORT ERROR VIA USER 
SUB #16, (SP) [MOVE SP TO USER'S BRANCH 
NOP 
15$: 
;REPORT AN ERROR IF "'UNS'' IS SET AND "DVC’' IS 0 
001350 B11 UNS .R MERI :AS UN UNSAFE ON?? 
001376 BIT #DVC RMERZI :WAS THERE A DEVICE CHECK?? 
BNE 16$ [YES = DON'T REPORT UNSAFE 
001140 MOV RMERII,S$GDDAT EXPECTED STATUS 
001140 BIC #UNS ,SGDDAT 
001142 MOV RMER II. s SBDDAT ;RECEIVED STATUS 
ADD [MOVE SP TO USER'S ERROR CALL 
000000 MOVB n07° 3tSP) [WRITE ERROR NUMBER 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ [REPORT ERROR VIA USER 
SUB #10, (SP) [MOVE SP BACK TO USER'S BRANCH 
16$: 
ZAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 
ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
STB 3s a SP) ;WAS “AN ERROR REPORTED?? 
BEQ 17$ :N 
ADD #4 (SP) a th - AUGMENT SP RETURN 
17$: SUB #4,(SP) :NO ERROR - RETURN SP TO BRANCH 


SEQ 0209 


CZRMNAO RMOS/3/2 FCTINL TST 2 


AT 
05 
05 


2014 000240 
2016 000207 


18$: 


NOP 
RTS 


PC 


— 1 
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E STATUS CHECK SUBROUTINE 


;STATUS CECK IS COMPLETE 


SEQ 0210 


on 


CZRMNAO RMOS/3/2 FCTINL TST 2 MACRO VO03.01 11-APR-80 13:17:48 PAGE 34 


DRIVE CLEAR STATUS CHECK SUBROUTINE 


4 

5 

6 

7 

8 

9 052020 

‘ 

12 052020 062716 000004 

13 052024 105076 000000 

13 052030 162716 000004 

16 052034 013737 001534 001142 
17 052042 042737 173700 001142 
18 052050 012737 004010 001140 
19 052056 023737 001140 001142 
20 052064 001443 

21 052066 062716 000004 

22 052072 112776 000141 000000 
23 052100 162716 000002 

24 052104 004736 

25 052106 162716 000010 
$6 052112 000240 
28 052114 013737 001346 001142 
29 052122 042737 021101 001142 
30 052130 012737 010600 001140 
31 052136 023737 001140 001142 
32 052144 001413 
HH 052146 062716 00000 

4 052152 112776 000142 000000 
35 052160 162716 000002 

36 052164 004736 

37 052166 genie 000010 
3 052172 000240 
40 052174 005037 001140 
41 052200 013737 001350 001142 
42 052206 001413 
43 052210 062716 000004 
44 052214 112776 000143 000000 
45 052222 162716 000002 
46 052226 004736 
47 052230 162716 000010 
$8 052234 000240 

50 052236 013737 001352 001142 
51 052244 010146 

52 052246 010246 

53 052250 013701 001464 

54 052254 116102 000001 

55 052260 042702 177400 

56 052264 005102 

57 052266 040237 001142 


SEQ 0211 

-SBTTL DRIVE CLEAR STATUS CHECK SUBROUTINE 
; BR 77? RETURN HERE IF NO ERROR 
; NOP RETURN HERE TO REPORT AN ERROR 
; ERROR ERROR NUMBER DEFINED BY SUB 
; JSR PC ,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
; 77? RETURN HERE IF NO MORE ERRORS 
DRVSTS: 
CLEAR USER'S ERROR CALL 

ADD #4, (SP) MOVE SP TO ERROR CALL 

CLRB a(SP) CLEAR ERROR CALL 

UB ;MOVE SP TO USER'S BRANCH 


S #4,(SP) : 

REPORT ERROR IF RMCS1 NOT INITIALIZED 

4$: MOV RMCS11,$BDDAT  ;CHECK RMCS1 
BIC #*C<DVA'FNCMSK>,SBDDAT ;CLEAR DONT CARES 
MOV #OVA!DRVCLR,SGDDAT sEXPECT DVA 


CMP SGDDAT,SBDDAT ;COMPARE EXPECTED & RECEIVED 
BEQ 6$ ‘BRANCH IF EQUAL 

ADD #4, (SP) [MOVE SP TO ERROR CALL 

MOVB =: #141, a( SP) ‘WRITE NUMBER OF ERROR IN CALL 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC .a(SP)+ ‘REPORT THE ERROR VIA USER 

SUB #10, (SP) :MOVE SP TO NO ERROR RETURN 


NOP 
-REPORT ERROR IF RMDS NOT INITIALIZED 
$$: MOV RMDSI,$BDDAT —; CHECK RMDS 
BIC #PGM'OM'VV'PIP,SBDDAT  ;CLEAR DONT CARES 
MOV #MOL ‘DPR!DRY, SGDDAT TEXPECT DRY & DPR 


CMP SGDDAT,SBDDAT ;COMPARE EXPECTED & RECEIVED 
L 


BEQ 6$ ‘BRANCH IF EQUA 
ADD #4, (SP) :MOVE SP TO ERROR CALL 
MOVB #142,a(SP) [WRITE NUMBER OF ERROR IN CALL 
SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ ‘REPORT THE ERROR VIA USER 
SUB #10, (SP) [MOVE SP TO NO ERROR RETURN 
:REPORT ERROR IF RMER1 NOT INITIALIZED 
é$: CLR SGDDAT sEXPECT O'S 
MOV RMERII,$BDDAT CHECK RMERI 
BEQ 8S [BRANCH IF EQUAL 
ADD #4, (SP) [MOVE SP TO ERROR CALL 
MOVB #143,a(SP) [WRITE NUMBER OF ERROR IN CALL 
SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ [REPORT THE ERROR VIA USER 
SUB #16, (SP) :MOVE SP TO NO ERROR RETURN 
“REPORT ERROR IF ATA NOT INITIALIZED 
BS: MOV RMASI,$BDDAT |; CHECK ATTENTION BIT 
MOV R1,-(SP) >;PUSH R1 ON STACK 
MOV R2.-(SP) [:PUSH R2 ON STACK 


MOVB 1(R1) ,R2 
BIC P imtaanee 


BIC R2, $BDDAT 


aa 


| | : 6 1 
CZRMNAO RMOS/3/2 FCTNL TST 2 MACRO VO3.01 11-APR-80 13:17:48 PAGE 34-1 


DRIVE CLEAR STATUS CHECK SUBROUTINE SEQ 0212 

58 052272 012602 MOV (SP)+,R2 7;POP STACK INTO R2 

59 052274 012601 MOV (SP)4-R1 ::POP STACK INTO RI 

60 052076 005737 001142 1ST SBDDAT :1$ ATTENTION CLEARED?? 

61 052302 001413 BEQ $ [BRANCH IF ATTENTION CLEARED 

62 052304 062716 000004 ADD #4, (SP) :MOVE SP TO ERROR CALL 

63 052310 112776 000144 000000 MOVB = #144, a(SP) ‘WRITE NUMBER OF ERROR IN CALL 

64 052316 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 

65 052322 004736 JSR PC.a(SP)+ [REPORT THE ERROR VIA USER 

66 052324 162716 000010 SUB #16, (SP) :MOVE SP TO NO ERROR RETURN 

67 052330 000240 NOP 

48 “REPORT ERROR IF RMMR1 NOT INITIALIZED 

69 052332 013737 001360 001142 9s: MOV RMMR11,$BDDAT ;CHECK RMMR 

70 052340 042737 000046 001142 BIC #WC'LS'LST,SBDDAT 7CLEAR DONT CARES 

71 052346 012737 000010 001140 MOV #MWD, SGDDAT sEXPECT WRITE DATA ON 

72 052354 023737 001140 001142 CMP SGDDAT,$BDDAT :COMPARE EXPECTED AND RECEIVED 

73 052362 001413 BEQ 11$ ‘BRANCH IF ZERO 

74 052364 062716 000004 ADD #4, (SP) :MOVE SP TO ERROR CALL 

75 052370 112776 000145 000000 MOVB #145,a(SP) ‘WRITE NUMBER OF ERROR IN CALL 

76 052376 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 

77 052402 004736 JSR PC.a(SP)+ ‘REPORT THE ERROR VIA USER 

78 052404 162716 000010 SUB #10, (SP) :MOVE SP TO NO ERROR RETURN 

79 052410 000240 NOP 

80 -REPORT ERROR IF RMMR2 NOT INITIALIZED 

81 052412 013737 001374 001142 i1$: MOV RMMR21,$SBDDAT ;CHECK RMMR2 

82 052420 042737 140000 001142 BIC #ROA'RQB,S$BDDAT :CLEAR REQA, REQB 

83 052426 012737 011777 001140 MOV #1ST!1777, $GDDAT sEXPECT TEST BIT ON 
052434 023737 001140 001142 CMP SGDDAT,SBDDAT ;COMPARE EXPECTED & RECEIVED 

85 052442 001413 BEQ 15$ [BRANCH IF EQUAL 

86 052444 062716 000004 ADD #4, (SP) ‘MOVE SP TO ERROR CALL 

87 052450 112776 000146 000000 MOVB #146,a(SP) [WRITE NUMBER OF ERROR IN CALL 
0£2456 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 

89 052462 004736 JSR PC ,a(SP)+ ;REPORT THE ERROR VIA USER 

90 952464 162716 000010 SUB #10, (SP) ;MOVE SP TO NO ERROR RETURN 

91 052470 009240 NOP 

92 052472 005037 001140 15$: CiR SGDDAT ZEXPECT ZEROS 

_~:. :REPORT ERROR IF RMEC2 NOT RESET 

9% 052476 013737 001402 001142 MOV RMEC21,$BDDAT  ; CHECK RMEC2 

95 052504 001413 BEQ 17$ [BRANCH IF 0 

96 052506 062716 000004 ADD #4, (SP) [MOVE SP TO ERROR CALL 

97 052512 112776 000150 000000 MOVB #150, a(SP) [WRITE NUMBER OF ERROR IN CALL 

98 052520 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 

99 052524 004736 JSR PC.a(SP)+ ‘REPORT THE ERROR VIA USER 

100 052526 162716 000010 SUB #10, (SP) [MOVE SP TO NG ERROR RETURN 

101 052532 000240 NOP 

102 :REPORT ERROR IF RMER2 NOT RESET 

103 052534 013737 001376 001142 1i7$: MoV RMER21,$BDDAT | ;CHECK RMER2 

104 052542 001413 BEQ 18$ ‘BRANCH IF NO ERROR 

105 052544 062716 000004 ADD #4, (SP) :MOVE SP TO ERROR CALL 

106 052550 112776 000147 000000 MOVB = #147,a(SP) [WRITE NUMBER OF ERROR IN CALL 

107 052556 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 

108 052562 004736 JSR PC a(SP)+ TREPORT THE ERROR VIA USER 

109 052564 162716 000010 SUB #10, (SP) [MOVE SP TO NO ERROR RETURN 

110 052570 000240 NOP 

Wt 052572 18$: 

113 052572 19$: 

114 


an 
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DRIVE CLEAR STATUS CHECK SUBROUTINE SEQ 0213 
115 ; AUGMENT — ~ we If ANY ERROR WAS FOUND 
116 052572 062716 000004 #4, (SP) :MOVE SP TO ERROR CALL 
117 052576 105776 000000 34 a(sP) ‘WAS AN ERROR DETECTED?? 
118 052602 001403 BEQ 218 NO! ! 
119 052604 062716 000004 ADD #4,(SP) sYES = MOVE SP TO ERROR RETURN 
120 052610 000402 BR 3g 
121 052612 162716 000004 218: SUB #4,(SP) ;MOVE SP BACK TO NO ERROR RETURN 
122 052616 000240 23$: NOP 
1$? 052620 000207 RTS PC s;RETURN TO USER 


aa 


1 
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DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE SEQ 0214 


} .SBTTL DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 
3 ;THIS SUBROUTINE VERIFIES THE RESULTS OF ALL DATA TRANSFER COMMANDS 
4 [USING STATUS STORED IN THE GET BUFFER AND TEST PARAMETERS 
5 ;STORED IN THE PUT BUFFER. ERRORS ARE REPORTED BY WRITING 
$ > THE ERROR NUMBER IN THE USERS ERROR CALL. 
g SUSER'S SUBROUTINE CALL: 
9 7(1) PC. DTASTS 
10 (2) RETURN HERE IF NO DATA ERRORS 
11 (3) NOP RETURN HERE TO REFORT AN ERROR 
12 3(4) ERROR SUB WRITES ERROR NUMBER 
13 305) JSR PC,a(SP)+ USER RETURNS FOR MORE CHECKS 
14 7(6) 2? SUB RETURNS HERE AFTER ALL 
7 ; ERRORS ARE REPORTED 
17 052622 DTASTS: 
19 ; CLEAR = S ERROR CALL AND ERROR FLAGS 
20 052622 062716 000004 ADD #4,(SP) sMOVE SP TO USER'S ERROR 
21 052626 105076 000000 CLRB asp) *CLEAR LOW ORDER BYTE OF TRAP 
22 052632 162716 000004 ‘ SUB #4, (SP) “RESTORE SP TO NO ERROR 
23 052636 005037 056216 . CLR 500$ “CLEAR ERROR FLAGS 
$ ee ete a toes BUS PARITY ERROR WHILE READING REMOTE REGISTERS, 
27 052642 032737 020000 001334 BIT #MCPE,RMCS11 iWAS THERE A PARITY ERROR?? 
28 052650 001422 BEQ 10$ NO! 
29 052652 013737 001334 001140 MOV RMCS11,$GDDAT EXPECTED STATUS 
30 052660 042737 020000 001140 BIC #MCPE ,$GDDAT 
31 052666 013737 001334 001142 MOV RMCSII "eens sRECEIVED STATUS 
32 052674 062716 000004 ADD ;MOVE SP TO USER'S ERROR CALL 
33 052700 112776 000013 000000 MOVB ath StSP) ‘WRITE ERROR NUMBER 
34 052706 162716 000002 $UB #2, (SP) ;MOVE SP TO RETURN IF ERROR 
35 052712 004736 JSR PC,a(SP)+ * REPORT ERROR AND RETURN 
36 052714 000466 BR 30$ 
37 052716 10$: 
39 ;REPORT ANY CONTROL BUS PARITY ERROR WHILE WRITTING REMOTE REGISTERS, 
40 {we PAR = 1 . DPE = 
41 052716 032737 000010 001350 BIT PAR, RMER1I :WAS THERE A PARITY ERROR?? 
42 052724 001435 BEQ soe NO! 
43 052726 032737 000010 001376 BIT #DPE ,RMER21 :DATA, PARITY ERROR ? 
44 052734 001031 BNE 20$ 
45 052736 013737 001350 001140 MOV RMER1 1 S$GDDAT + EXPECTED STATUS 
46 052744 042737 000010 001140 BIC #PAR, SGDDAT 
47 052752 013737 001350 001142 MOV RMERI I s SBDDAT :RECEIVED STATUS 
48 052760 062716 000004 ADD ‘MOVE SP TO USER'S ERROR 
49 052764 112776 000050 000000 MOVB + 263 ‘WRITE ERROR NUMBER 
50 052772 032737 001000 001344 BIT gaxe RAC S21 :D1D MXF GET SET?? 
$1 053000 001003 BNE 15$ “YES! ! 
52 053002 112776 000274 000000 MOVB #274,a(SP) 3NO - CHANGE ERROR NUMBER 
53 053010 162716 000002 15$: SUB #2, (SP) MOVE SP TO RETURN IF ERROR 
54 053014 004736 JSR PC,a(SP)+ “REPORT ERROR AND RETURN 
35 053016 000425 BR 30$ 
57 ;LOOK FOR ANY ERRORS WHICH MAY HAVE OCCURRED DURING COMMAND INITIATION OR 


an 
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DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE SEQ 0215 
58 ;MECHANICAL POSITIONING 
60 sFIRST TEST MXF WHICH WOULD INDICATE COMPOSITE ERROR SET WHEN FUNCTION 
61 “CODE AND GO BIT WERE LOADED 
62 053020 208: 
8 053020 032737 001000 001344 BIT #MXF ,RMCS21 : WAS "MISSED TRANSFER’ SET?? 
64 053026 001425 BEQ 40$ 
65 053030 013737 001344 001140 MOV RMCS21,$GDDAT EXPECTED STATUS 
66 053036 042737 001000 001140 BIC #MXE -SGDDAT 
67 053044 013737 0013446 001142 MOV RMCS2I. SBDDAT —; RECEIVED_ STATUS 
68 053052 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
69 053056 112776 000275 000000 MOVB wets a(sP) ;WRITE ERROR NUMBER 
70 053064 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
71 053070 004736 JSR PC.a(SP)+ *REPORT ERROR AND RETURN 
re 053072 308: 
74 ;RESTORE SP TO NO ERROR RETURN AND BYPASS FURHTER STATUS CHECKING 
75 053072 162716 000010 SUB #10, (SP) :MOVE SP TO NO ERROR 
26 053076 000137 056170 JMP 3808 :SKIP TO END OF SUB 
78 053102 40$: 
80 ;REPORT AN ERROR IF ‘‘OPI'' ERROR OCCURRED DUE TO ‘MOL’ = 0, OR IF “OPI” 
81 : AND "MOL'' ARE SET, BUT “'VV'' IS RESET, INDICATING AN INTERMITTENT 
;' = 
83 053102 032737 020000 001350 BIT #OP1,RMER11 s1S "OPI" SET?? 
84 053110 001447 BEQ 6 NO! ! 
85 053112 013737 001350 001140 MOV RMERII, SGDDAT SEXPECTED STATUS 
86 053120 042737 020000 001140 BIC #OP1,$GDDAT 
87 053126 013737 001350 001142 MOV RMERII,$BDDAT  ;RECEIVED STATUS 
88 053134 032737 010000 001346 BIT #MOL ,RMDS1 ;WAS MEDIUM OFF LINE? 
89 053142 001404 BEQ 45$ : YES! 
90 053144 032737 000100 001346 BIT #VV,RMDSI WAS moL! INTERMITTENT?? 
91 053152 001013 BNE 50$ NO! ! 
92 053154 062716 000004 45$: ADD #4, (SP) ‘move SP TO USER'S ERROR CALL 
93 053160 112776 000276 000000 MOVB #276,a(SP) ‘WRITE ERROR NUMBER IN CALL 
94 053166 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN IF ERROR 
95 053172 004736 JSR PC. a(SP)+ “REPORT ERROR AND RETURN 
96 053174 162716 000010 SUB #10, (SP) ‘RESTORE SP TO NO ERROR 
97 053200 000413 BR 
98 053202 50$: 
100 ;REPORT ‘‘OPI'' ERROR, WHICH IS DUE TO ‘'ON CYLINDER’ NOT DROPPING OR 
10! “RUN' TIMEOUT (20 Ks) or SEARCH TIMEOUT (50 MS) 
102 053202 062716 000004 ADD :MOVE SP TO USER'S ERROR CALL 
103 053206 112776 000277 000000 MOVB "hr SSP) :WRITE ERROR NUMBER IN CALL 
104 053214 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN IF ERROR 
105 053220 004736 JSR PC a(sP)s “REPORT ERROR AND RETURN 
106 053222 162716 000010 SUB #16, ¢ sRESTORE SP TO NO ERROR 
107 053226 000240 NOP 
108 053230 60S: 
110 :LOOK FOR “‘IVC'’ ERROR aQuRING COMMAND INITIATION 
111 053230 032737 010000 001376 BIT #1VC,RMER21 :MAS, THERE AN "'IVC'' ERROR?? 
112 053236 001432 BEQ 70 nae Wieder’ 
113 :REPORT "IVC'' ERROR DUE TO ye “OR REPORT ERRONEOUS "‘IVC'' ERROR 
114 053240 013737 001376 001140 MOV RMERZI, SGDDAT. SEXPECTED STATUS 
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ROUTIN 


65$: 


70$: 
SEE IF 


:REPORT 


80$: 
;REPORT 


90$: 
;REPORT 


BIC #1VC,SGDDAT 
MOV RMERCI, SBDDAT 


ADD #4, (SP) 
MOVvB #300,a(SP) 
#VV,RMDSI 


65$ 
MOVB #301,a(SP) 
SUB #2, (§P) 
PC a(SP)+ 
SUB #16, (SP) 


"ILE OR RMR’ IS SET 

BIT 

BEQ $ 

AN ERROR IF "ILR' IS SET 

BIT #ILR,RMERTI 

80$ 

MOV RMER11,$GDDAT 

BIC #ILR,SGDDAT 

MOV RMER11,$BDDAT 
4, (SP) 


& 
MOVB #302,a(SP) 
#2, (SP) 


JSR PC.a(SP)+ 
SUB #16, (SP) 
NOP 


AN ERROR IF “‘ILF'’ IS SET 
BIT MILF ,RMERII 
90$ 


MOV RMER11,$GDDAT 

BIC #ILF ,SGDDAT 

MOV RMER11,$BDDAT 
#4, (SP) 

MOVB #303,a(SP) 

SUB #2, (SP) 

JSR PC.a(SP)+ 

SUB #16, (SP) 


NOP 

AN ERROR IF ‘'RMR'' IS SET 
BIT #RMR ,RMERII 

BEQ 100$ 


MOV RMER11,$GDDAT 
BIC #RMR, SGDDAT 
MOV RMER11,$BDDAT 


#4 
MOVB #304,a(SP) 
#2, (SP) 


JSR PC.a(SP)+ 
SUB #10, (SP) 


;RECEIVED STATUS 

sMOVE SP TO USER'S ERROR 
WRITE ERROR NUMBER IN CALL 
—_e VALID?? 

; CHANGE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 
sREPORT “‘IVC'' ERROR AND RETURN 
RESTORE SP TO NO ERROR 


MILRIILFIRMR, RMERTI 
100 


;NO ERRORS DETECTED 

sWAS “"ILR'’ DETECTED?? 

sNO!! 

EXPECTED STATUS 

sRECEIVED STATUS 

;MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
;MOVE SP TO RETURN IF ERROR 


‘REPORT ERROR AND RETURN 
:RESTORE SP TO NO ERROR 


sWAS, “ILE DETECTED?? 
TEXPECTED STATUS 

;RECEIVED STATUS 

‘MOVE SP TO USER'S ERROR CALL 


7M 
;REPORT ERORR AND RETURN 
sRESTORE SP TO NO ERROR 


:WAS, “RMR DETECTED?? 
SEXPECTED STATUS 


sRECEIVED STATUS 
:MOVE SP TO USER'S ERROR CALL 


;RESTORE SP TO NO ERROR 


100$: 
;DETERMINE WHETHER OR NOT “‘IAE'’ SHOULD BE SET AND CHECK FOR ERROR 


SEQ 0216 
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001140 
056216 
001466 
056216 


001333 


000035 
001442 
000037 


001142 
001142 
001142 


056216 


000000 


001142 
001142 
001140 
001140 
001376 
056216 


000000 


056216 


000000 


SEQ 0217 
MOV MIAE ,SGDDAT ;SETUP FOR ‘‘IAE'’ = 1 
BIS #SKI,500$ sSETUP FOR ‘'SKI"' = 1 
CMP RMDCO, #822. :GREATER THAN LAST CYLINDER ? 
BHI 110$ :YES = CYLINDER IS INVALID 
BIC #SK1,500$ sRESET SKI FLAG 


CMPB RMDAO+1,LSTRK+1 ;GREATER THAN LAST TRACK ? 
BH] 1108 7YES = TRACK IS INVALID 


CMPB RMDAO, #29. :1S SECTOR > 29. ? 
105$ : 


BLOS § 

BIT #FMT16,RMOFO 318 BIT FORMAT ? 

BEQ 110$ sYES = SECTOR_IS INVALID FOR 18 BIT MODE 
CMPB RMDAO,#31. ;1S SECTOR > 31. ? 

BHI 110$ 7YES = SECTOR IS INVALID 

CLR SGDDAT ;""1AE"' SHOULD = 0 


MOV RMER11,$BDDAT  ;GET RECEIVED STATUS 
BIC #*CIAE,$BDDAT 
CMP S$GDDAT , SBDDAT 4k sa STATUS OK?? 


11 sNO!! 
me o3e) - 9008 :1AE OK = SKI SHOULD BE 0 


MOVE SP TO USER'S ERROR CALL 
;WRITE ERROR NUMBER 

;MOVE SP TO RETURN IF ERROR 
;REPORT ERROR AND RETURN 
;MOVE SP TO NO ERROR 


SUB #2, (SP) 
JSR PC.a(SP)+ 
SUB #10, (SP) 


AN ERROR IF ‘'SKI"' IS SET AND “‘IAE*' STATUS WAS OK 
MOV art seeeel sRECEIVED STATUS 
EXPECTED STATUS 


BIT WSKI,RMER2I ;WAS "'SKI"' SET?? 
14 :NO! ! 


BEQ 0$ NO! ! 

BIT #SK1,500$ [WAS SKI CAUSED BY IAE = 02? 
BNE 150$ [YES - DON'T REPORT SKI 

ADD 4, (SP) [MOVE SP TG USERS ERROR CALL 
MOVB #306,a(SP) ‘WRITE ERROR NUMBER 


MOVE SP TO RETURN iF ERROR 
REPORT ERROR AND RETURN 
:MOVE SP TO NO ERROR 


AN ERROR IF SKI = 0 AND IAE WAS NOT DETECTED 
BIT #SK1,500$ ?? 


I sSHOULD SKI BE SET 
BEQ ZNO! ! 

ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
MOVB #307, a(SP) SWRITE ERROR NUMBER IN CALL 
SUB #2, (SP) OVE SP TO RETURN IF ERROR 


JSR PC a(SP)+ 
SUB #16, (SP) 


om i 
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001376 


001376 
001140 
001140 
001142 


000000 


001376 
001346 
001140 
001140 
001142 


000000 


001376 


001142 
000000 


001350 


001350 
001376 


1508: 


; LOOK a Pal OR “‘LBC’’ OR “'DVC’’ IN ERROR REGISTER #2 


MLSC!LBC!DVC 
180$ 


BEQ 
;REPORT ANY DEVICE FAULT, I.E 
B11 #DVC,RMERZI 
MOV RMER2i, SGDDAT 
BIC #DVC,$ 
MOV RRERSI SBDDAT 
ADD #4, (SP) 


SUB #2, (SP) 

SR PC’a(SP)+ 
SUB #16, (SP) 
NOP 


160$: 


;REPORT LOSS OF BIT CLOCK 
BIT #LBC, ban 
1708 


BIT #MOL ,RMDSI 
170$ 


MOV RMERZI . $GDDAT 
BIC #LBC, $GDDAT 
MOV RMERGI SBDDAT 


MOVB ait a(SP) 
SUB #2, (SP) 
JSR PC.a(SP)+ 
SUB #10, (SP) 


170$: 

;REPORT LOS OF SYSTEM CLOCK, 
B #LSC,RMERZI 

180$- 

MOV RMER2 I SGDDAT 

BIC #LSC, $GDDAT 

MOV RWERSI. ‘BDDAT 

MOVB a3iD a(sP) 

JSR PC, a(SP)+ 

SUB #10, (SP) 


180$: 


oRMER21 


NO ERRORS SET 


nin "DV C. = 
434 “pyc” = 12? 


c EXPECTED STATUS 


RECEIVED STATUS 
MOVE SP TO USERS ERROR 
iWRITE ERROR NUMBER IN CALL 


RESTORE SP TO NO ERROR 


“LBC’’ = 1, IF ‘MOL'’ = 1 
1% LBC SET?? 


AS "LBC ERROR BY MOL = 0 
sEXPECTED STATUS 


sRECEIVED STATUS 

:MOVE SP TO USER'S ERROR CALL 
;WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 

SREPORT ERROR AND RETURN 

RESTORE SP TO NO ERROR 


[8., VSc" 2 1 
His "isc" = 12? 


‘EXPECTED STATUS 


RECEIVED STATUS 

;MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER 

REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 


; LOOK “Blt "UNS'' OR ‘'DTE'’ OR “WLE'’ IN ERROR REGISTER #1 


WUNS!DTE!WLE, 


; REPORT Fun" ERROR IF ‘‘DVC"’ 
#UNS ,RMERII 
190$ 


BIT #OVC,RMERZ1 
E 1908 


RMER J 
:NO BITS SET 


:18 "UNS" SET?? 
[WAS "UNS" CAUSED BY “'DvC''?2 
YES! ! 


SEQ 0218 
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86 p2te28 


.©O 00 C9 CD 
ViFwr—OoOe~ 


303 054456 
304 054464 
305 054470 
06 054472 
307 054476 
309 


S2SSSessss 


WAAAY Nw 


326 054604 
328 054610 
329 


3 

0 054636 
341 054644 
42 054652 


3 
33 
33 
33 
33 
33 
33 
33 
33 
34 

4 
3 


We NS Wr 





001350 


000002 
000010 


010000 
001350 


000002 
000010 


004000 
001350 


004000 
000010 


000316 
004000 
000002 


000010 


000004 
000000 


000004 
055630 
000004 


001410 
177700 
000063 
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001140 
001140 
001142 


000000 


001350 
001140 
001140 
001142 


000000 


001350 
001142 
001140 
001140 


000000 
001346 


001410 


000000 
001140 


SEQ 0219 
Moy RMERTI ,SGDDAT sEXPECTED STATUS 
MOV RMERII SBDDAT —; RECEIVED STATUS 
ADD #4, (SPS “MOVE SP TO USERS ERROR CALL 
MOVB =: #313, a(SP) ‘WRITE ERROR NUMBER 
SUB #2, (SP) ‘MOVE SP TO RETURN IF ERROR 
JSR PC a(SP)+ ‘REPORT ERROR AND RETURN 
SUB #16, (SP) ‘RESTORE SP TO NO ERROR 
1908: 
;REPORT ANY DRIVE TIMING ERROR, I.€., ‘DTE’ = 1 
B11 #DTE,RMERTI sis OTE SET?? 
NOY RMER'1 $6 ,SGDDAT TEXPECTED STATUS 
MOV RMERII- SBDDAT RECEIVED STATUS 
ADD #4, (SPS VE SP TO USER'S ERROR CALL 
MOVB =: #314, a(SP) iURITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE SP TO RETURN IF ERROR 
JSR PC .a(SP)+ SREPORT ERROR AND RETURN 
ae SUB #10, (SP) ‘MOVE SP TO NO ERROR 


;REPORT AN ERROR IF WRITE LOCK ERROR IS SET. SEE IF DRIVE IS NOT 
WRITE oe OR IF FUNCTION — NOT A WRITE 

BIT WWLE .RMER11 2 WAS we E’’ SET?? 
2208 3NO! 


a RMER11 ,$BDDAT RECEIVED STATUS 


V RMER1I.$GDDAT EXPECTED STATUS 
BIS #WLE,$G 
ADD #4, (SP) :MOVE SP TO USERS ERROR | CALL 
MOVB =: #315, a( SP) ‘WRITE ERROR NUMBER IN 
BIT #URL ,RMDSI zMAS, DRIVE WRITE PROTECTED? 
BIT WBIT3,RMCS1O © WAS COMMAND A WRITE?? 
BEQ 210$ : YES! 
205$: MOVB #316,a(SP) : CHANGE ERROR NUMBER 
BIC ULE SGDDAT 
210$: SUB #2, (SP) :MOVE SP TO RETURN IF ERROR 
JSR PC a(SP)+ ‘REPORT ERROR AND RETURN 
SUB #10, (SP) [MOVE SP TO NO ERROR 
2208: 
sOMIT DATA ERROR CHECKS IF ANY PBZ 1OUS ERRORS HAVE BEEN DETECTED 
ADD #4, (SP) #iWE SP TO USER'S ERROR 
TSTB 3s (SP) swAS ERROR DETECTED?? 
BEQ 225$ :NO - DO DATA CHECKS 
SUB #4, (SP) “RESTORE SP 
JMP 346$ SKIP DATA CHECKS 
225$: SUB #4, (SP) TRESTORE $ 


:CHECK HEADER ERRORS IF FUNCTION WAS NOT WRITE HEADER AND DATA, AND 

IF HEADER saath 1S NOT INHIBITED 
MOV 10,510$ STRIP AND STORE FUNCTION CODE 
BIC PCENCASK 5108 


CMP #WH'GO,510$ :WAS FUNCTION WRITE HEADER & DATA?? 


, FR 
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DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE SEQ 0220 
3 054660 0015 BEQ 250$ ZYES = SKIP HEADER CHECKS 
si 054662 032737 002000 001366 BIT #HC1RMOF I [WAS HCI SET?? 
365 054670 001106 BNE 2508 [YES = SKIP HEADER CHECKS 
7 ;SEE IF ANY HEADER ERRORS ARE SET, I.€., FER’ OR HCRC’’ OR “HCE” 
348 054672 032737 000620 001350 BIT #HCRC!FER!HCE,RMERTI 
349 054700 001533 BEQ 2708 SNO ERRORS SET 
351 ;REPORT HEADER CRC ERROR IF SET 
332 054702 032737 000400 001350 BIT MHCRC,RMERII © ;WAS HCRC SET?? 
33 054710 d01422 BEQ 230$ NO! ! 
54 054712 013737 001350 001140 MOV RMER11,SGDDAT sEXPECTED STATUS 
| 355 054720 042737 000400 001140 BIC #HCRC,SGDDAT 
356 054726 013737 001350 001142 MOV RMERII,$BDDAT  ;RECEIVED STATUS 
357 054734 062716 000004 ADD #4, (SP) :MOVE SP TO USERS ERROR 
358 054740 112776 000317 000000 MOVB «#317, a( SP) ‘WRITE ERROR NUMBER 
359 054746 162716 $UB #2, (SP) ;MOVE SP TO RETURN IF ERROR 
360 054752 004736 JSR PC,a(SP)¢ ;REPORT ERROR AND RETURN 
361 054754 000501 BR 266$ 
362 054756 2308: 
364 ;REPORT FORMAT ERROR IF SET 
365 054756 032737 000020 001350 BIT #FER,RMERII sWAS ‘‘FER'’ SET?? 
366 054764 001422 BEQ 408 =NO!! 
367 054766 013737 001350 001140 MOV RMER11,$GDDAT sEXPECTED STATUS 
368 054774 042737 000020 001140 BIC #FER,SGDDAT 
369 055002 013737 001350 001142 MOV RMERII,$BDDAT  ;:RECEIVED STATUS 
30 055010 062716 000004 ADD #4, (SP) sMOVE SP TO USERS ERROR 
71 055014 112776 000320 000000 MOVB «#320, a( SP) ‘WRITE ERROR NUMBER 
372 055022 162716 000002 SUB #2, (SP) ;MOVE SP TO RETURN IF ERROR 
| 373 055026 004736 JSR PC,a(SP)+ sREPORT ERROR AND RETURN 
37% 055030 000453 BR 2608 
375 055032 2408: 
377 ;REPORT HEADER COMPARE ERROR IF SET 
378 055032 032737 000200 001350 BIT #HCE RMERTI sWAS "'HCE’’ SET?2 
379 055040 001453 BEQ 0$ NO! ! 
380 055042 013737 001350 001140 MOV RMER11,SGDDAT sEXPECTED STATUS 
381 055050 042737 000200 001140 BIC #HCE ,SGDDAT 
382 055056 013737 001350 001142 MOV RMER{I,$BDDAT  ;RECEIVED STATUS 
383 055064 062716 000004 ADD #4, (SP) sMOVE SP TO USER'S ERROR 
384 055070 112776 000321 000000 MOVB #321, a(SP) ‘WRITE ERROR NUMBER 
385 055076 162716 000002 SUB #2, (SP) ;MOVE SP TO RETURN IF ERROR 
| 386 055102 004736 JSR PC ,a(SP)¢ ;REPORT ERROR AND RETURN 
387 055106 000425 BR 2608 
3388 ;THERE SHOULD BE NO HEADER ERRORS BECAUSE 
389 3 -COMMAND WAS WRITE HEADER AND DATA, OR 
390 » »HEADER COMPARE INHIBIT WAS SET 
391 055106 032737 000620 001350 5508: BIT #HCE!FER'HCRC,RMERTI 
392 055114 001425 BEQ 2708 7NO ERRORS WERE SET 
393 055116 013737 001350 001140 MOV RMER11,S$GDDAT sEXPECTED STATUS 
$98 055124 042737 000620 001140 BIC MHCE'FER'HCRC,SGDDAT 
95 055132 013737 001350 001142 MOV RMERII,SBDDAT ;:RECEIVED STATUS 
396 055140 062716 000004 ADD #4, (SP) sMOVE SP TO USER'S ERROR CALL 
397 055144 112776 322 000000 MOVB «#322, a( SP) TWRITE ERROR NUMBER 
398 055152 162716 000002 SUB #2, (SP) sMOVE SP TO RETURN IF ERROR 
399 055156 004736 JSR PC,a(SP)+ sREPORT ERROR AND RETURN 


a0 | 
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DATA TRANSFER COMMAND STATUS CHECK SUBROUTIN 


400 055160 162716 000010 2608:  $uUB #10, (SP) :MOVE SP TO NO ERROR 
401 955164 000137 055630 JMP 340$ [OMIT FURTHER DATA CHECKS 
<08 055170 2708: 
405 71 COMMAND WAS A WRITE COMMAND, GO DO WRITE ERROR CHECKS, OTHERWISE 
406 [D0 READ ERROR CHECKS 
407 055170 032737 000010 056220 BIT e115, 5108 ;WAS THIS A WRITE COMMAND? 
408 055176 001002 BNE 75$ NO! ! 
409 055200 000137 055416 JMP 10$ :GO DO WRITE STATUS CHECK 
410 055204 2758: 
412 :REPORT DATA CHECK IF SET 
413 055204 032737 100000 001350 BIT #DCK ,RMERTI :DATA CHECK ERROR?? 
414 055212 001450 BEQ 2 =NO!! 
415 055214 013737 001350 001140 MOV RRER' I gSGDDAT TEXPECTED STATUS 
416 055222 042737 100000 001140 BIC #DCK ,SGDDAT 
417 055230 013737 001350 001142 MOV RMER{ I sSBDDAT :RECEIVED STATUS 
418 055236 062716 000004 ADD “MOVE SP TO USER’ S ERROR 
419 055242 112776 000323 000000 move #385. a(SP) WRITE ERROR NUMBER 
420 055250 032737 004000 001366 BIT #EC1.RMOF I ; WAS [ECC CORRECTION DISABLED?? 
421 055256 001021 BNE 2808 ZYES 
422 055260 112776 000324 000000 MOVB #324,a(SP) CHANGE TO RECOVERABLE ERROR 
423 055266 032737 000100 001350 BIT #ECH_RMERII :1S ERROR RECOVERABLE ?? 
426 055274 001007 BNE 276$ 'N 
425 ;D0 NOT REPORT RECOVERABLE ERROR = READ COMMAN 
426 055276 032737 000020 056220 BIT #B114,510$ :WAS THIS A READ COMMAND ?? 
427 055304 001406 BEQ 2 
428 055306 162716 000004 SUB #4, (SP) RESTORE SP 
429 055312 000410 BR 296 ‘SKIP ERROR - DATA WILL BE CORRECTED 
430 055314 112776 000325 000000 276$: MOVB #325,a(SP) : CHANGE NON RECOVERABLE 
431 055322 162716 000002 280$: SUB #2, (SP) MOVE SP TO RETURN IF ERROR 
432 055326 004736 JSR PC *a(SP)+ “REPORT ERROR AND RETURN 
433 055330 162716 000010 SUB #10, (SP) [RESTORE SP TO NO ERROR 
435 055334 2908: 
437 ;REPORT DATA BUS PARITY ERROR od Sal 1.€., MDPE = 1 
438 055334 032737 000400 001344 BIT #@MOPE ,RMCS21 ARITY ERROR SET?? 
439 055342 001423 BEQ 3008 
440 055344 013737 001344 001140 MOV RMCS21 ,$GDDAT EXPECTED STATUS 
441 055352 042737 000400 001140 BIC #MDPE,$GDDAT. 
442 055360 013737 001344 001142 MOV RACS2i SBDDAT sRECEIVED STATUS 
443 055366 062716 000004 ADD a ‘MOVE SP TO USER'S ERROR 
444 055372 112776 000326 000000 MOVB #326. asp) ;WRITE ERROR NUMBER 
445 055400 162716 000002 SUB (§P) [MOVE SP TO RETURN IF ERROR 
446 055404 004736 JSR pe “a(SP)+ ‘REPORT ERROR AND RETURN 
447 055406 162716 000010 SUB #16, (SP) :MOVE SP TO NO ERROR 
448 055412 000137 055630 300$:  JMP 3408 [SKIP WRITE STATUS CHECK 
450 055416 3108: 
;TEST TO SEE THAT OFFSET MODE WAS RESET; REPORT ERROR IF “‘UM" = 1 
133 055416 032737 000001 001346 BIT #OM,RMDS1 71S OFFSET ON?? 
454 055424 001423 BEQ : 
455 055426 013737 001346 001140 MOV RMDSI,$GDDAT [EXPECTED STATUS 
456 055434 042737 000001 001140 BIC #OM,$GDDAT 


SEQ 0221 
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SEQ 0222 


457 055442 013737 001346 001142 MOV RMDS1,$BDDAT :RECEIVED STATUS 
458 055450 062716 000004 ADD #4, (SP) [MOVE SP TO USER'S ERROR CALL 
459 055454 112776 000327 000000 MOVB #357 aUSP) WRITE sERRO NUMBER IN CALL 
460 055462 162716 000002 SUB #2, (SP) ‘MOVE SP TO RETURN IF ERROR 
461 055466 004736 JSR PC a(SP)+ ‘REPORT ERROR AND RETURN 
462 055470 162716 000010 SUB #16, (SP) ‘MOVE SP TO NO ERROR 
465 055474 320$: 
465 ;TEST FOR DATA BUS PARITY ERROR; REPORT ERROR IF ‘DPE’ = 1 
466 055476 032737 000010 001376 BIT #DPE ,RMER2I :DATA PARITY ERROR?? 
467 055502 001423 BEQ NO! ! 
468 055504 013737 001376 001140 MOV RAERZI SGDDAT EXPECTED STATUS 
469 055512 042737 000010 001140 BIC GDDAT 
470 055520 013737 001376 001142 MOV RRERSI SBDDAT —; RECEIVED STATUS 
471 055526 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
472 055532 112776 000330 000000 MOVB #380,a(SP) WR ITE ERROR NUMBER 
473 055540 162716 000002 SUB #2, (SP) MOVE SP TO RETURN IF ERROR 
474 055544 004736 JSR PC.a(SP)+ “REPORT ERROR AND RETURN 
475 055546 162716 000010 #16, (SP) ‘MOVE SP TO NO ERROR 
476 055552 330$: 
478 ;TEST FOR WRITE CLOCK FAILURE; REPORT ERROR LF WCF 
479 055552 032737 000060 001350 BIT #WCF RMERTI :1S ‘WCF’ SET? 
480 055560 001423 BEQ 40$ 
481 055562 013737 001350 001140 MOV RMER11,$GDDAT < EXPECTED STATUS 
482 055570 042737 000040 001140 BIC #WCF SGDDAT 
483 055576 013737 001350 001142 MOV RMER{ 1 , SBDDAT ;RECEIVED STATUS 
84 055606 062716 000004 ADD “MOVE SP TO USERS ERROR CALL 
485 055610 112776 000331 000000 MOVB aah a tSP) ;WRITE ERROR NUMBER 
055616 162716 000002 SUB #2, (SP) MOVE SP TO RETURN IF ERROR 
487 055622 004736 JSR PC "a(SP)+ “REPORT ERROR AND RETURN 
488 055624 162716 000010 SUB #16, (SP) ‘MOVE SP TG NO ERROR 
489 055630 340$: 
491 sREPORT te LATE’’ ERROR IF ‘'DLT’’ = : 
492 055630 032737 100000 001344 #OLT,RMCS21 rIS DUT SET?? 
493 055636 001423 +H 3 :NO! 
055640 013737 001344 001140 MOV RACS21 ,SGDDAT cP XPECTED STATUS 
495 055646 042737 100000 001140 BIC #DLT, SGDDAT 
496 055654 013737 001344 001142 MOV RnCSSI. ; SBDDAT :RECEIVED STATUS 
497 055662 062716 000004 ADD “MOVE SP TO USERS ERROR CALL 
498 055666 112776 000332 000000 MOVB #342° BCSP) [WRITE ERROR NUMBER 
499 055674 162716 000002 SUB #2, (§P) [MOVE SP TO RETURN IF ERROR 
500 055700 004736 JSR PC.a(SP)¢ ‘REPORT ERROR AND RETURN 
501 055702 162716 000010 #10, (SP) “MOVE SP TO NO ERROR 
502 055706 350$: 
503 >LOOK FOR UNEXPECTED CHANGES IN DRIVE STATUS 
504 055706 013746 001346 MOV RMDS1,-(SP) :STACK DRIVE STATUS 
505 055712 042716 147677 BIC o-CePIP!ROL 'Wv>. (SP) ;CLEAR DONT CARES 
506 055716 022726 010100 CMP WMOL'VV.(SP)+ ‘1S DRIVE STATUS OK?? 
307 055722 00152 BEQ 380$ YES! ! 
509 REPORT ERROR If IF POS1TIONING IN PROGRESS AND NO SEEK INCOMPLETE ERROR, 
511 055724 032737 020000 001346 BIT #PIP,RMDSI :1S "PIP" SET?2 
512 055732 001430 BEQ 3608 NO!! 
513 055734 032737 040000 001376 BIT #SK1,RMER21 “WAS "SKI" ERROR REPORTED?? 


wna 
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001140 
001140 
001142 


000000 


001346 
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001140 
001142 


000000 


001346 
001376 
001140 
001140 
001142 


000000 
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OUTINE 


3608: 


7; YES-DONT REPORT PIP 


360$ 
RMDS1 ,SGDDAT sEXPECTED STATUS 


#PIP,S$GDDAT 

RMDSI,$BDDAT RECEIVED STATUS 

#4, (SP) [MOVE SP TO USERS ERROR CALL 
#333,a(SP) ‘WRITE ERROR NUMBER 

#2, (SP) :MOVE SP TO RETURN IF ERROR 
PC a(SP)+ [REPORT ERROR AND RETURN 
#16, (SP) ‘MOVE SP TO NO ERROR 


sREPORT ERROR IF MEDIUM IS NOT ON LINE AND OP] ERROR WAS NOT 


sanetetaiig 1.E., MOL = OPI = 0 


370$: 


it #MOLRMDSI :1S MEDIUM ON LINE?? 
BNE 370$ YES! ! 
BIT #OPI.RMERTI [WAS OPI ERROR REPORTED?? 
BNE 370$ sYES!! 
MOV RMDSI,$GDDAT §: EXPECTED STATUS 
BIS #MOL ,SGDDAT 
MOV RMDSI,$BDDAT  : RECEIVED STATUS 
ADD #4, (SP) [MOVE SP TO USER'S ERROR 
MOVB #384,a(SP) ‘WRITE ERROR NUMBER 
SUB #2, (SP) [MOVE SP TO RETURN IF ERROR 
JSR PC a(SP)+ ‘REPORT ERROR AND RETURN 
SUB #10, (SP) ‘MOVE SP TO NO ERROR 


;REPORT ERROR IF VOLUME IS ry VALID AND ‘'IVC'* ERROR WAS NOT 
Vv s 


statin? 1.E., VV = IVC 


380$: 


390$: 
400$: 
500$: 


it #VV,RMDSI :1S VOLUME VALID?? 
BNE 380$ YES! ! 
BIT #IVC,RMERZI [WAS IVC ERROR REPORTED?? 
BNE 3sVES!! 
MOV RMDSI,$GDDAT EXPECTED STATUS 
BIS #VV,SGDDAT 
MOV RMDSI,$BDDAT ; RECEIVED STATUS 
ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
MOVB #385, a(SP) ‘WRITE ERROR NUMBER 
SUB #2, (SP) [MOVE SP TO RETURN IF ERROR 
JSR PC a(SP)+ [REPORT ERROR AND RETURN 
SUB #16, (SP) [MOVE SP TO NO ERROR 

;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS FOUND 

ADD #4, (SP :MOVE SP TO ERROR CALL 
TST8. aC §P) [ANY ERROR?? 
BES 390$ NO! ! 
ADD #4, (SP) [YES = MOVE SP TO ERROR RETURN 
SUB #4, (SP) ;MOVE SP TO NO ERROR RETURN 
RTS PC :RETURN TO USER 

WORD sERROR FLAGS 

“wORD ‘TEMPORARY STORAGE 


510$: 


SEQ 0223 


mao 
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STATIC DRIVE STATUS CHECK SUBROUTINE SEQ 0224 


-SBTTL STATIC DRIVE STATUS CHECK SUBROUTINE 


sTHIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE 

sSTATUS, SUCH AS THE DPIVE LOSING VOLUME VALID. THE SUBROUTINE 
;CAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE 
;SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE. 


rae CONDITIONS ARE TESTED AND REPORTED AS ERRORS 


1 
2 
3 
4 
5 
6 
7 
B 
10 
11 MOL = 0, INDICATES DRIVE WENT OFFLINE, NOTE 
12 “THAT MOL IS ASSUMED TO HAVE BEEN SET 
13 ; .VV = 0, INDICATES THE DRIVE LOST VOLUME VALID 
14 : “PIP = 1, INDICATES THAT THE DRIVE IS OFF CYLINDER 
15 : .SK1 = 1, INDICATES THE DRIVE HAS AN UNEXPECTED SKI ERROR 
16 : .DVC = 1, INDICATES AN UNEXPECTED DEVICE FAULT 
18 ;THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER. 
20 :(1) JSR PC,STCDRVSTS 
21 : BR 273 RETURN HERE IF NO ERROR 
22 : NOP RETURN HERE TO REPORT AN ERROR 
23 : ERROR ERROR NUMBER DEFINED BY SUB 
24 : JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
¢ 3 22? RETURN HERE IF NO MORE ERRORS 
27 056222 STCDRVSTS: 
29 ZCLEAR USER'S ERROR CALL 
30 056222 062716 000004 ADD (SP) ;MOVE SP TO USER" S ERROR CALL 
31 056226 105076 000000 CLRB acéP ) :CLEAR ERROR NUMBER 
32 056232 162716 000004 SUB (SP) :MOVE SP BACK TO NO ERROR RETURN 
33 :SEE IF ''MOL" = wee 1, AND PIP’ = 0 
34 056236 013746 001346 MOV RMDS1,-(SP) :PUT DRIVE STATUS ON STACK 
35 056242 042716 147677 BIC #*C<PIP! MOL! vv>, (SP) 
36 056246 022726 010100 CMP #MOL'VV,(SP)+ —:ARE MOL.VV AND PIP 0.K.?? 
37 056252 001524 BEQ 30$ SYES!! 
39 ;REPORT AN ERROR IF MOL = 0 AND OPI" = 0 
40 056254 032737 010000 001346 BIT #MOL ,RMDS1 :1$ MOL ON ?? 
41 056262 001030 BNE 10$ YES! 
42 056264 032737 020000 001350 BIT #OP1,RMER1I “WAS opy: SET?? c 
43 056272 001024 BNE 10$ TYES-DONT REPORT "MOL" = 0 
44 056274 013737 001346 001140 MOV RMDSI,$GDDAT  : EXPECTED STATUS 
45 056302 052737 010000 001140 BIS #MOL ,SGDDAT 
46 056310 013737 001346 001142 MOV RMDSI . $BDDAT ; RECEIVED STATUS 
47 056316 062716 000004 ADD #4, (SP) : SP TO USER'S ERROR CALL 
48 056322 112776 000207 000000 MOVB #207,a(SP) SWRITE ERROR NUMBER IN CALL 
49 056330 162716 000002 SUB #2, (SP) MOVE SP TO RETURN FOR ERROR 
50 056334 004736 JSR PC.a(SP)¢ [REPORT ERROR VIA USER 
51 056336 162716 000010 SUB #16, (SP) *MOVE SP BACK TO NO ERROR RETURN 
056342 000240 NOP 
056344 10$: 


;REPORT AN ERROR IF VOLUME VALID IS ey, ZERO AND “a = 
7 000100 001346 BIT #vV,RMDSI ere * Q?? 
0 BNE 20% NO 


‘ 


AO 


| mrt 2 
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STATIC DRIVE STATUS CHECK SUBROUTINE SEQ 0225 
58 056354 032737 010000 001376 BIT #1VC,RAERZI ZWAS "IVC" SET2? 
59 056362 001024 BNE 20$ SYES=DONT REPORT “'vv'' = 0 
60 056364 013737 001346 001140 MOV RMDSI,$GDDAT EXPECTED STATUS 
61 056372 052737 000100 001346 BIS #VV,RM 
62 056400 013737 001346 001142 MOV RMDSI . $BDDAT RECEIVED STATUS 
63 056406 062716 000004 ADD #4, (SP) i MOVE SP TO USER'S ERROR CALL 
64 056412 112776 000210 000000 MOVB #210, a(SP) WRITE ERROR NUMBER IN CALL 
65 056420 162716 000002 SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
66 056424 004736 JSR PC a(SP)+ ‘REPORT ERROR VIA USER 
67 056426 162716 000010 SUB #10, (SP) :MOVE SP BACK TO NO ERROR 
68 056432 000240 NOP 
69 056434 208: 
71 ;REPORT AN ERROR IF DRIVE IS OFF CYLINDER AND "'SKI'' = 0 
72 056434 032737 020000 001346 BIT #PIP,RMDSI :1S DRIVE OFF CYLINDER?? 
73 056442 001430 BEQ 30$ :NO! 
74 056444 032737 040000 001376 BIT #SK1,RMER2I “WAS "'SKI'' SET?? 
75 056452 001024 BNE 30$ “YES=DONT REPORT "PIP" = 1 
76 056454 013737 001346 001140 MOV RMDSI1,$GDDAT §: EXPECTED STATUS 
77 056462 042737 020000 001140 BIC #PIP,$GDDAT 
78 056470 013737 001346 001142 MOV RMDS1,$BDDAT :RECEIVED STATUS 
79 056476 062716 000004 ADD #4, (SP) OVE SP TO USER'S ERROR CALL 
| 80 056502 112776 000211 000000 MOVB =: #211, a( SP) CUR ITE ERROR NUMBER IN USER'S CALL 
81 056510 162716 000002 SUB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 
82 056514 004736 JSR PC.a(SP)+ =REPORT ERROR VIA USER 
| 83 056516 162716 000010 $UB #10, (SP) *MOVE SP TO NO ERROR RETURN 
84 056522 000240 NOP 
| 85 056524 308: 
87 pSEE IF "SKI" = "DvC'' = 0 
| 88 056524 013746 001376 MOV RMER21,-(SP) ;PUT ERROR REG 2 ON STACK 
89 056530 042726 137577 BIC #*C<SKI'DVC>, (SP) + 
90 056534 001460 BEQ 60$ :BRANCH IF NO ERROR 
91 056536 40$: 
| 93 ;REPORT AN ERROR IF THERE IS A DEVICE FAULT 
| 94 056536 032737 000200 001376 BIT #DVC,RMERZI Y DEVICE FAULT?? 
95 056544 001424 BEQ 50$ NO! 
| 96 056546 013737 001376 001140 MOV RMER21,$GDDAT sEAPECTED STATUS 
97 056554 042737 000200 001140 BIC #DVC, $GDDAT 
98 056562 013737 001376 001142 MOV RMERZ1 , s SBDDAT ;RECEIVED STATUS 
99 056570 062716 000004 ADD #4 MOVE SP TO USER'S CALL 
| 100 056574 112776 000212 000000 nova #2 {2,a(SP) ;WRITE NUMBER OF ERROR IN CALL 
| 10? 056602 162716 000002 SUB #2, (SP) MOVE SP TO RETURN FOR ERROR 
| 102 056606 004736 JSR PC.a(SP)+ ‘REPORT ERROR VIA USER 
| 103 056610 162716 000010 SUB «#10, (SP) :MOVE SP BACK TO NO ERROR 
| 104 056614 000240 NOP 
| 105 056616 508: 
107 ;REPORT AN ERROR IF "SKI" = 1 
| 108 056616 032737 040000 001376 BIT #SK1,RMERZI 18 THERE A SEEK INCOMPLETE ERROR 
109 056624 001424 BEQ 60$ 
110 056626 013737 001376 001140 MOV RMER21 ,$GDDAT EXPECTED STATUS 
111 056634 042737 040000 001140 BIC #SK1,S$GDDAT 
112 056642 013737 001376 001142 MOV RMERCI,SBDDAT RECEIVED STATUS 
113 056650 062716 000004 = ADD #4, (SP) ‘MOVE SP TO USER'S ERROR C 
114 056654 112776 000213 000000: MOVB #213, a(SP) ‘WRITE ERROR NUMBER IN USER § ERROR CALL 
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STATIC DRIVE STATUS CHECK SUBROUTINE SEQ 0226 
115 056662 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
116 056666 004736 JSR PC a(SP)+ [REPORT ERROR VIA USER 
117 056670 162716 000010 SUB #10, (SP) :MOVE SP BACK TO NO ERROR 
118 056674 000240 NOP 
119 056676 60S: 
121 ;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 
122 056676 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
123 056702 105776 000000 TSTB = a §P) “WAS AN ERROR DETECTED?? 
124 056706 001403 BEQ 70$ NO! ! 
125 056710 062716 000004 ADD #4, (SP) [YES = MOVE SP TO USER'S ERROR RETURN 
126 056714 000402 BR 80$ 
127 056716 162716 000004 70$: SUB #4, (SP) sNO - MOVE SP TO NO ERROR RETURN 
128 056722 000240 80$: NOP 
i$ 056724 000207 RTS PC ;RETURN TO USER 


ed am) 


 CZRMNAO RMOS/3/2 FCTNL TST 2 
| STOP AND SHUTDOWN SUBROUTINES 


056754 
056756 


a 
ONOUSWwH— 

So 

uw 

oa 

~“ 

o 

= 


Mronrnn— 
Swnr—-0v0 


012746 
012746 
000002 
000240 
012746 
012746 
000002 
000207 


005737 


000410 
000137 
000137 


012737 
000002 


I 
MACRO VO3.01 11-APR-80 13:17:48 PAGE 33 


-SBTTL STOP AND SHUTDOWN SUBROUTINES 

STOP: 

;DROP PRIORITY TO ALLOW iat INTERRUPT 
MOV #PR3,-(SP) 


SEQ 0227 


000140 37PUT NEW PS ON STACK 
056740 MOV #64$,-(SP) 3;PUT NEW PC ON STACK 
RT] 3;POP NEW PC AND PS 
64$: 
NOP 
;RAISE PRIORITY TO gerd CONSOLE INTERRUPT 
000300 MOV #PR6,-(SP) 3zPUT NEW PS ON STACK 
056754 MOV #65$,-(SP) 3:PUT NEW PC ON STACK 
458 RT] 3;POP NEW PC AND PS 
RTS PC ; CONTINUE 
001326 SHUT: TST CTLFG :WAS CONTROL C FLAGGED ? 
BNE 5$ 3;BR IF YES 
007764 JMP READY ; CONTINUE 
000042 5$: TST a#42 ;ANY MONITOR PRESENT ? 
BNE 0$ ‘BR IF YES 
057004 TYPE ,65$ 7s TYPE ASCIZ STRING 
64% 3GET OVER THE ASCIZ 
i7e>* ASCIZ <CRLF><07>/TEST HALTED/<CRLF> 
005420 JMP START 3G0 TO START 
032340 10$: JMP $EOP SRETURN CONTROL TO MONITOR 
177777 001326 SHUT2: MOV #-1,CTLFG 3SET THE CONTROL=C FLAG 
RTl sEXIT FROM INTERRUPT 


ao 
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SAVE AND RESTORE RO-R5S ROUTINES SEQ 0228 
| 1 .SBTTL SAVE AND RESTORE RO-R5 ROUTINES 
PARRA ARATE KEKK KKK eee KKeKkekKtekeeeeeereeeee 
on ide 
-* . 


SAVREG 
: UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


eTOP===(+16) 
se +2--=(4+18) 


pe +h--=R5 
pe 46=--RG 
p* +8---R3 
3*+10---R2 
3*4+12---R1 
3*4+14---R0 
057044 SSAVREG: 
057044 010046 MOV RO,-(SP) 33;PUSH 7 ON STACK 
057046 010146 MOV R1,-(SP) ;7PUSH R1 ON STACK 
057050 010246 MOV R2,-(SP) 3:PUSH R2 ON STACK 
057052 010346 MOV R3,-(SP) 37;PUSH R3 ON STACK 
057054 010446 MOV R4,-(SP) 3:PUSH R4& ON STACK 
057056 010546 MOV R5,-(SP) 3;PUSH R5 ON STACK 
057060 016646 000022 MOV 22(SP),-(SP) 3;SAVE PS OF MAIN FLOW 
57064 016646 000022 MOV 22(SP),-(SP) 3; SAVE PC OF MAIN FLOW 
057070 016646 000022 MOV 22(SP) ,-(SP) 3; SAVE PS OF CALL 
057074 016646 000022 MOV 22(SP),=-(SP) 3;SAVE PC OF CALL 
057100 000002 RTI 
s*RESTORE RO-R5 
s*CALL: 
sf RESREG 
057102 SRESREG: 
057102 012666 000022 MOV (SP)+,22(SP) 3zRESTORE PC OF CALL 
057106 012666 000022 MOV (SP)+,22(SP) ;:RESTORE PS OF CALL 
057112 012666 000022 MOV (SP)+,22(SP) ;;RESTORE PC OF MAIN FLOW 
057116 012666 000022 MOV (SP)+,22(SP) ;;RESTORE PS OF MAIN FLOW 
057122 012605 MOV (SP)+,R5 3;POP STACK INTO RS 
057124 012604 MOV (SP)+,R4 : 3 POP STACK INTO R4& 
057126 012603 MOV (SP)+,R3 3;POP STACK INTO R3 
057130 012602 MOV (SP)+,R2 3;POP STACK INTO R2 
057132 012601 MOV (SP)+,R1 3;POP STACK INTO R1 
05713 012600 MOV (SP)+,RO 3;POP STACK INTO RO 
057136 000002 RTI 
2 -SBTTL BINARY TO ASCII AND TYPE ROUTINE 
SURAT AAAs 
SSTHIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-B1T 
i #BINARY=ASCII NUMBER AND TYPE IT. 
3 *CALL: 
se MOV NUMBER ,-(SP) ;:NUMBER TO BE TYPED 
se TYPBN si TYPE IT 
057140 010146 STYPBN: MOV R1,-(SP) 3; SAVE R1 ON THE STACK 
057142 016601 000006 MOV 6(SP),R1 268! THE INPUT NUMBER 
057146 000261 SEC ::SET “'C'' SO CAN KEEP TRACK OF THE NUMBER OF BITS 
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000060 057212 


000004 


000001 


177777 


1$: MOVB #'O,S$BIN 
ROL R1 
BEQ 2$ 
ADCB $BIN 
TYPE » $BIN 
CLC 
BR 1$ 

2$: MOV (SP)+,R1 
MOV 2(SP),4(SP) 
MOV (SP)+, (SP) 
RT] 

$BIN: 0,0 


SEQ 0229 


73 SET arr He TO AN ASCII ‘'0"'. 
‘IONE? BIT 


N 
3;NO--SET THE CHARACTER EQUAL TO THIS BIT 
3:G0 TYPE THIS BIT 

3:CLEAR "'C'' SO CAN KEEP TRACK OF BITS 
3:60 DO THE NEXT BIT 

7;POP THE STACK INTO R1 

;;ADJUST THE STACK 


+ sRETURN TO USER 
E FOR ASCII CHAR. AND TERMINATOR 


-BYTE TORAG 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


PPP P PTT iii i iii iii iit iti iit iiiiit. 
SeTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
*SIGNED DECIMAL (ASCI1) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
:*NUMBER IS POSITIVE OR ‘ee tae A SPACE OR A MINUS SIGN WILL BE TYPED 


:*BEFORE THE FIRST DIGIT 
Stes WITH SPACES. 


s*CA 

7* MOV NUM,=-(SP) 
3* TYPDS 

STYPDS: 


MOV RO,-(SP) 
MOV R1.-(SP) 

MOV R2.-(SP) 
MOV R3. = (SP) 

MOV R5.- 

MOV #36200, dsp) 
MOV 20(SP »°RS 


NEG R5 

MOVB ss # "=, 1(SP) 
$ CLR 0 

MOV #SDBLK,R3 

MOVB = #' ,(R3)4 
2$ CLR +4 

MOV SDTBL(RO),R1 
3$: SUB R1,R5 

BLT 4$ 

INC R2 

BR 5 
4$ ADD R1,R5 

TST 

BNE 5$ 

TSTB = (SP) 

BM] 7$ 
5$ ASLB = (SP) 

BCC 6$ 

MOVB 1 SP), -1(R3) 
6S: BIS #'0,R2 
7$: BIS . *R2 

MOVB = R2, (R3)4 

TST (RO) + 

CMP RO, #10 


NUMBER. LEADING ZEROS WILL ALWAYS BE 


::PUT THE BINARY NUMBER ON THE STACK 
3:60 TO THE ROUTINE 


:;PUSH RO ON STACK 
:sPUSH R1 ON STACK 


23 STACK 

::SET BLANK SWITCH AND SIGN 
::GET THE INPUT NUMBER 

:;BR IF_ INPUT IS POS. 

: sMAKE THE BINARY NUMBER POS. 


N 
: FORM THIS BCD DIGIT 
7BR IF DONE 
:; INCREASE THE BCD DIGIT BY 1 


;:ADD BACK THE CONSTANT 
::CHECK IF BCD 0161 t=0 


OUGH IF 0 
2eSTILt , 20iNe LEADING 0°S? 


:BR IF NO 
IVES=-SET 1 
ASCI1 
PACE IF NOT ALREADY A DIG 
3:PUT_ THIS CHARACTER IN THE OUTPUT BUF 


::JUST INCREMENTING 
:;CHECK THE TABLE INDEX 


IT 
FER 


—- ! 


--eee eee 
Hy 
| 
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' CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0230 
057344 002746 BLT 2$ +360 00 THE NEXT DIGIT 
| 057346 003002 BGT 8$ 19 EXIT 
057350 010502 MOV R5,R2 S:GET THE LSD 
057352 000764 BR $ He CHANGE TO ASCII 
057354 105726 8$: TSTB (SP)+ $M LSD THE FIRST NON-ZERO? | 
057356 100003 BPL BR NO 
057360 116663 177777 177776 MOvB -1(SP),-2(R3) a eee THE 44 FOR TYPING 
057366 105013 9$: CLRB (R3) 3;SET THE TERMINATOR 
057370 012605 MOV (SP)+,R5 3:;POP STACK INTO R5 
057372 012603 MOV (SP)+,R3 3;POP STACK INTO R3 
057374 012602 MOV (SP)+,R2 7;POP STACK INTO R2 
057376 012601 MOV (SP)+,R1 33;POP STACK INTO R1 
057400 012600 MOV (SP)+,RO ;;POP STACK INTO RO 
057402 104401 057430 TYPE $DBLK NOW TYPE THE NUMBER 
057406 016666 000002 000004 MOV 2(SP) ,4(SP) S:ADJUST THE STACK 
057414 012616 MOV (SP)+, (SP) 
| 057416 000002 RT] 7;RETURN TO USER 
057420 023420 $DTBL: 10000. 
057422 001750 1000. 
057424 000144 0 
057426 000012 
057430 SDBLK: .BLKW 
| 4 -SBTTL BINARY 10 OCTAL (ASCI1) AND TYPE 
FREER AEAEEAEEE EE EEEEAAAEREREEEEEKEKEEEERKRREReE 
SS THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCI1) NUMBER AND TYPE IT 
| oF | PSR=nEaTeR HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
** 
3* MOV NUM, =-(SP) ; NUMBER TO BE TYPED 
;* TYPOS CALL FOR TYPEOUT 
3 BYTE ON :IN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
:* -BYTE ™ 77M=1 OR 0 
:* :3 1=TYPE LEADING ZEROS 
:* 3; 0=SUPPRESS LEADING ZEROS 
' *® 
3 *$TYPON---- 4 Y U H TH HE L 
| $TYPO ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 
*CALL: 
3 MOV NUM ,-(SP) 7; NUMBER TO BE TYPED 
i* TYPON 7;CALL FOR TYPEOUT 
** 
| ot Np alata HERE FOR TYPEOUT OF A 16 BIT NUMBER 
> *CALL: 
3 MOV NUM, -(SP) 7;NUMBER TO BE TYPED 
38 TYPOC 7:CALL FOR TYPEOUT 
057440 017646 000000 $TYPOS: MOV a(SP),-(SP) tif Se THE re 
057444 116637 000001 057663 MOVB 1(SP),SOFILL D ZERO FILL SWITCH 
057452 112637 057665 MOVB (SP)+,SOMODE+1 NUMBER OF Digits. TO TYPE 
057456 062716 000002 ADD #2,(SP) SSADJUST RETURN ADDRESS 
057462 000406 BR $TYPO 
057464 112737 000001 057663 $TYPOC: MOVB #1,SOFILL ::SET THE ZERO FILL SWITCH 
| 057472 112737 000006 057665 MOVB #6, SOMODE+1 ii SET FOR SIX(6) DIGITS 
057500 112737 000005 057662 S$TYPON: MOVB »SOCNT T THE ITERATION COUNT 
| 057506 010346 MOV R3,-(SP) eile R R3 
057510 010446 MOV R4,-(SP) 77 SAVE R4 
| 
| 


— —_ i 
M 
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| BINARY TO OCTAL (ASCII) AND TYPE SEQ 0231 
| 


057512 010546 MOV R5,-(SP) s SAVE RS 
057514 113704 057665 MOVB  $OMODE+1,R4 ::GET THE NUMBER OF DIG.\.° TO *~» 
§27288 b63700 000006 nh 16 RG : SUBTRACT i FOR MAX. ALL OwE 
| e ; : Lm L 3) 
057526 110437 057664 MOVB  R4,SOMODE SA VE IT FOR USE 
| 057532 113704 057663 MOVB $OFILL,R4 S:GET THE PERO FILL SWITCH 
057536 016605 000012 MOV 12(SP).R5 T:PICKUP THE INPUT NUMBER 
| 057542 005003 CLR R3 ii CLEAR THE OUTPUT WORD 
| 057544 006105 1$: ROL R5 ::ROTATE MSB INTO "'C’’ 
057546 000404 BR 33 7:60 DO MSB 
| 057550 006105 2s: ROL sR ‘TFORM THIS DIGIT 
057552 006105 ROL R5 
| 057554 006105 ROL R5 
| 057556 010503 MOV R5,R3 
057560 006103 38: ROL R3 ::GET LSB OF THIS ,piGit 
057562 105337 057664 DECB  $OMODE i: TYPE THIS DIGIT 
057566 100016 BPL [BR IF NO 
057570 042703 177770 BIC #177770,R3 ::GET RID OF JUNK 
| 057574 001002 BNE 4$ Si TEST FOR 0 
057576 005704 TST R4 he gt THIS 0? 
057600 001403 BEQ 5$ i:BR IF YES 
057602 005204 4$: INC RG ::DON'T SUPPRESS ANYMORE 0'S 
057604 052703 000060 BIS #'O,R3 SiMAKE THIS DIGIT ASCII 
057610 052703 000040 5$: BIS #' ,R3 szMAKE ASCII ef NOT ALREADY 
057614 110337 057660 MOVB ~—=s_ R33, BS :SAVE FOR TYPING 
057620 104401 057660 TYPE as O TYPE THIS DIGIT 
0576246 105337 057662 7$: DECB ~—-: $OCNT ‘:COUNT BY 1 
057630 003347 BGT 2$ [:BR IF MORE TO DO 
057632 002402 BLT 6$ ::BR IF DONE 
057634 005204 INC RG :INSURE LAST DIGIT ISN'T A BLANK 
057636 000744 BR 2$ 760 DO THE LAST DIGIT 
057640 012605 6$: MOV (SP)+,R5 S:RESTORE R5 
057642 012604 MOV (SP)+.R4 S:RESTORE R4 
057644 012603 MOV (SP)+.R TZRESTORE R3 
057646 016666 000002 000004 MOV 2(SP),4(SP) ::SET THE STACK FOR RETURNING 
057654 012616 MOV (SP)+, (SP) 
057656 000002 RT] s:RETU 
057660 000 8$: .BYTE 0 SET ORAGE FOR ASCII DIGIT 
057661 000 -BYTE 0 3: TERMINATOR FOR TYPE ROUTINE 
57662 000 SOCNT: [BYTE 0 S:OCTAL DIGIT COUNTER 
057663 000 SOFILL: .BYTE 0 [:2ERO FILL SWITCH 
057664 000000 SOMODE: .WORD 0 ;zNUMBER OF DIGITS TO TYPE 
5 .SBTTL TYPE ROUTINE 


CRRA AE AERA EEE AERA AERA RRA KAKA eKeReKeeKee eee eeAee 
! ROUTINE TO TYPE ASCIZ wy eo MUST TERMINATE WITH A 0 aE 
s"THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
;*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER, 
; *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER 57) hes REQUIRED. 
; #NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER 
| 


; “CAL 

pe) “USING A TRAP INSTRUCTION 

; YPE »MESAD ;7MESADR 1S FIRST ADDRESS OF AN ASCIZ STRING 

H ** 

8 TYPE 
ie MESADR 


[ree ree 
} 
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- te 
ee 


‘Ea 0232 
Hy 1d 
057666 105737 001173 STYPE: TSTB  STPFLG :i1S THERE A TERMINAL? 
| 057672 100002 BPL 1$ F 
057674 000000 HALT _ HEMALT_ HERE. IF NO TERMINAL 
057676 000430 BR 3$ ; LEAVE 
057700 010046 1$: MOV RO,=(SP) SAVE RO 
| 057702 017600 000002 : MOV a2 (SP) ,RO ::GET ADDRESS OF ASCIZ STRING 
057706 122737 000001 001242 CMPB = WAPTENV,SENV =; ; RUNNING IN APT MODE 
057714 001011 BNE 62$ :NO,GO CHECK FOR APT CONSOLE 
057716 132737 000100 001243 BITB = #APTSPOOL, SENVM i: SPOOL MESSAGE TO APT 
057724 001405 BEQ 62$ :7NO,GO CHECK FOR CONSOLE 
| 057726 010037 057736 MOV RO,61$ Se tu UP MESSAGE ADDRESS FOR APT 
| 057732 004737 062660 JSR PC, SATY3 ;3SPOOL MESSAGE TO A 
057736 000000 61$:  .WORD 0 ;;MESSAGE ADDRESS 
057740 132737 000040 001243 62$:  BITB  M#APTCSUP,SENVM ::APT CONSOLE SUPPRESSED 
| 057746 001003 BNE 60$ ::YES,SKIP TYP 
057750 112046 2$: MOVB (RO)+,=(SP) +S PUSH CHARACTER 4 BE oe ONTO STACK 
057752 001005 BNE 4$ ::BR IF IT ISN'T THE TERMINATOR 
057754 005726 TST (SP)+ 331F TERMINATOR POP IT OFF THE STACK 
057756 012600 60$: MOV (SP)+,RO :ERESTORE RO 
057760 062716 000002 3$: ADD #2, (SP) i ADJUST RETURN PC 
057764 000002 RTI 
7766 122716 000011 4$: CMPB Ss #HT, (SP) + BRANCH IF <HT> 
057772 001430 BEQ 
057774 122716 000200 CMPB #CRLF, (SP) ;:BRANCH IF NOT <CRLF> 
060000 001006 BNE 5$ 
060002 005726 TST (SP)+ 3;POP <CR><LF> + 
60004 104401 TYPE 7; TYPE A CR AND LF 
060006 601217 SCRLF 
060010 105037 060216 CLRB ° $CHARCNT ::CLEAR CHARACTER COUNT 
060014 000755 BR 2$ ::GET NEXT CHARACTER 
060016 004737 060100 5$: JSR PC ,STYPEC 3:G0 TYPE THIS CHARACTER 
060022 123726 001172 6$: CMPB so SFILLC,(SP)+ 31S IT TIME FOR FILLER CHARS. ? 
060026 001350 - BNE 2$ ::1F_NO GO GET NEXT 
060030 013746 001170 MOV SNULL ,-(SP) $48 5 Re at be CHARS. "NEEDED 
060034 105366 000001 7$: DECB 1(SP) OOS A NULL NEED TO BE TYPED? 
060040 002770 BLT 6$ ::BR IF NO--GO POP THE NULL OFF OF STACK 
060042 004737 060100 JSR PC ,STYPEC 3:G0 TYPE AN 
060046 105337 060216 DECB SCHARCNT :2D0 NOT COUNT Ms A COUNT 
| 060052 000770 BR 7$ ; LOOP 
;HORIZONTAL TAB PROCESSOR 
060054 112716 000040 8$: MOVB =o #*_, (SP) ::REPLACE TAB WITH SPACE 
| 060060 004737 060100 9$: JSR PC, $TYPEC Si TYPE A SPACE 
| 060064 132737 000007 060216 BITB = #7. SCHARCNT :;BRANCH IF NOT AT 
| 060072 001372 BNE 9$ ::TAB STOP 
| 060074 005726 TST (SP)+ ::POP SPACE OFF STACK 
| 060076 000724 BR 2$ ::GET NEXT CHARACTER 
060100 STYPEC: 
060100 105777 121054 TSTB = @STKS ;:CHAR_IN KYBD BUFFER? 
| 060104 100022 BPL 10$ :3BR IE NOT 
060106 017746 121050 MoV a$TKB,-(SP) TiGET CHA 
| 060112 042716 177600 BIC #177600, (SP) :ESTRIP EXTRANEOUS BITS F 
060116 122716 000023 CMPB ss WSXOFF, (SP) :3WAS CHAR XOFF : 
| 
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060266 022626 

060270 012637 000004 

060274 000440 

060276 

060276 032777 000400 
304 001421 


: —- : 
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BNE 102% 
1018: 
TSTB = @STKS 
BPL 101$ 
MOVB a$TKB,(SP) 
BIC #177660, (SP) 
CMPB ss SON, (§P) 
BNE 1018 
102$: 
TST (SP)¢ 
108: 
TSTB = @STPS 
BPL 10$ 
121000 MOVB -.2( SP) ,a$TPB 
000002 CMPB #CR,2(SP) 
BNE 1$ 
CLRB SCHARCNT 
BR STYPEX 
000002 1$: CMPB ALF ,2(SP) 
BEQ $TYPEX 
INCB (PC)¢+ 
SCHARCNT:.WORD 0 


STYPEX: RTS PC 
-SBTTL SCOPE HANDLER ROUTINE 


;;BR IF NOT 
3;WAIT FOR CHAR 


33;GET CHAR 
s7STRIP IT 
3;WAS IT XON? 
3:BR IF NOT 


s3FIX STACK 
3;WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
31S CHARACTER A CARRIAGE RETURN? 

; BRANCH IF NO 

$+ tc CHARACTER COUNT 


XI 
::1$ CHARACTER A LINE FEED? 
;;BRANCH IF YES 

::COUNT THE CHARACTER 

3: CHARACTER COUNT STORAGE 


CPP i iii iiiiiiiititiiiiit) 
SSTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
> *AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 


:*THE SWITCH se Sue BY THIS ROUTINE ARE: 


120716 


*Sw1 4=1 Loo 
3*Swil=1 tNMIBST id es 
7 *SwO09=1 LOOP ON ERR 
7 *Sw08=1 LOOP ON fest IN SWR<7:0> 
3 *CALL 
7* SCOPE 3; SCOPE=I0T 
SSCOPE: 
CKSWR s;TEST FOR CHANGE IN SOFT=SwR 


JSR PC,STOP 
1$: BIT #B1T14,aSwR ::LOOP ON PRESENT TEST? 
BNE SOVER ;YES IF Swi4=1 
;MHARASTART OF CODE FOR THE XOR iESTERSANRA 
$xTSTR: BR 6$ self RUNNING ON THE ‘'XOR"’ TESTER CHANGE 
THIS INSTRUCTION TO A ‘'NOP’’ (NOP=240) 
MOV @#ERRVEC,-(SP) :;SAVE THE ima OF THE ERROR VECTOR 


000004 MOV OSS ,QsERRVEC = 3; SET FOR 
TST a#1?7060 — OUT ON XOR? 
MOV (SP) +, a#ERRVEC {RESTORE THE ERROR VECTOR 
BR SSVLAD :GO TO THE NEXT TEST 
5$: CMP (SP)+,(SP)¢ + OP eAR THE STACK AFTER. A TIME OUT 


1206590 


MOV = (SP)+,@#ERRVEC ;;RESTORE THE ERROR VECT 

Be ? LOOP ON THE PRESENT Test 
6%: ;#MMNKEND OF CODE FOR THE KOR’ TESTERAMA . 

BIT #BITOB.aSUR  z;LOOP ON SPEC. TEST? 

BEQ SS ::BR IF NO 


SEQ 0233 


—--y 
| 


a 


C 
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SCOPE HANDLER ROUTINE SEQ 0234 
060306 005046 CLR (SP) ;7CLEAR A TEMP. LOCATION 
060310 117716 120640 MOVB aswr, (SP) szPICKUP THE +e TEST NUMBER 
060314 001414 BEQ 8$ ;;BRANCH IF BAD ih a a+ IN SWR 
060316 022716 000033 CMP #33, (SP) : 3 CHECK THE NUMBER IN THE SwR 
060322 002411 BLT 8% ;BRANCH IF TEST NUMBER IS OUT OF RANGE 
060324 011637 001116 MOV (SP), STSTNM : UPDATE THE TEST NUMBER 
0603 005316 DEC (SP) :3BA CKUP BY ONE 
060332 006316 ASL (SP) ;SCALE THE TEST NUMBER AS AN INDEX 
060334 peg i8 060540 ADD #SSWOBTBL, (SP) ; FORM THE ADDRESS OF TEST POINTER 
060340 013637 001122 MOV @(SP)+,$LPADR ;SET LOOP oe TO DESIRED TEST 
060344 000466 BR SOVER ::60 LOGS ON THE TEST 
346 005726 8$: TST (SP)¢ ii CLEAN THE BAD TEST + OFF OF THE STACK 
060350 105737 001117 23: TSTB SERFLG S AN ERROR OCCURRED 
060354 001421 BEQ 3$ ‘BR IF NO 
060356 123737 001131 001117 CMPB SERMAX ,SERFLG SIMAK, ERRORS FOR THIS TEST OCCURRED? 
060364 101015 BH] :BR IF NO 
060366 032777 001000 120560 BIT #B1T09,aSwR LOOP ON ERROR? 
060374 001404 BEQ 4% 3;BR IF NO 
060376 013737 001124 001122 7$: MOV SLPERR,SLPADR TiSET LOOP ADDRESS TO LAST SCOPE 
060404 000446 BR SOVER 
0406 105037 001117 4$: CLRB SERFLG 3:ZERO THE ERROR FLAG 
060412 005037 001206 CLR STIMES 3:CLEAR THE NUMBER OF 1s te TO MAKE 
16 0004615 BR 1$ s7ESCAPE TO THE NEXT TEST 
060420 032777 004000 120526 3$: BIT #B1T11,aSWR 3: INHIBIT ITERATIONS? 
060426 001011 BNE 1$ 77;BR IF YES 
060430 005737 001230 TST SPASS solF FIRST sini? OF PROGRAM 
34 001406 BEQ 1$ INKIBIT ton teen 
are OO3s3! 001120 INC SICNT +: INCREMENT ITERATION COUN 
060442 023737 001206 001120 CMP STIMES,SICNT 3;CHECK THE NUMBER OF SOE RATIONS MADE 
060450 002024 BGE SOVER 7:BR IF MORE ITERATION REQUIRED 
060452 012737 000001 001120 1$: MOV #1,S1CNT ois tg ALT THE ITERATION COUNTER 
0460 013737 060536 001206 MOV SMXCNT STIMES ;SET NUMBER OF ITERATIONS TO DO 
060466 105237 001116 SSVLAD: INCB STSTNM :§ COUNT TEST NUMBERS 
060472 113737 001116 001226 MOVB STSTNM,STESTN ;SET TEST NUMBER IN APT MAILBOX 
060500 011637 001122 MOV (SP) ,SLPADR +: SAVE SCOPE LOOP ADDRESS 
060504 011637 001124 MOV (SP), SLPERR ;:SAVE ERROR LOOP ADDRESS 
060510 005037 001210 CLR SESCAPE 7;CLEAR THE ESCAPE FROM ERROR ADDRESS 
060514 112737 000001 001131 MOVB #1,SERM 770NLY ALLOW ONE(1) — ON NEXT TEST 
060522 013777 001116 120426 SOVER: MOV STSTHme ab1sp.ar ;:DISPLAY TEST NUMBER 
060530 013716 001122 MOV SLPADR, (SP) + FUDGE RETURN ADDRESS 
060534 000002 RT] i fixes ps 
060536 000012 SMXCNT: 10. . NUMBER OF ITERATIONS 
060540 SSWO8TBL: 
060540 010132 WORD TST1+#2 7:STARTING ADDRESS OF TEST 1 
060542 010316 WORD TST2+2 7;STARTING ADDRESS OF TEST 2 
060544 010502 WORD TST3+2 7;STARTING ADDRESS OF TEST 3 
060546 010704 WORD TST442 ;3:STARTING ADDRESS OF TEST 4 
060550 011546 WORD TST5+2 s7STARTING ADDRESS OF TEST 5 
060552 012402 WORD TST6+2 ;;STARTING ADDRESS OF TEST 6 
060554 013172 -WORD TST7#2 7: STARTING ADDRESS OF TEST 7 
060556 014132 -WORD TST10+2 72 STARTI ADDRESS OF TEST 10 
060560 014752 WORD TST11¢2 7:STARTING ADDRESS OF TEST 11 
060562 015542 WORD ets 7:STARTING ADDRESS OF TEST 12 
060564 319300 ~WORD TS11542 72 STARTING ADDRESS OF TEST 13 
566 017274 . WORD TST14¢2 s: STARTING ADDRESS OF TEST 14 
060570 020106 WORD TST15¢2 7; STARTING ADDRESS OF TEST 15 
060572 020720 WORD TST1642 7; STARTING ADDRESS GF TEST 16 


D 
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CZRMNAO RMOS/3/2 FCTN 
SCOPE HANDLER ROUTINE SEQ 0235 
060574 021542 . WORD Ist1702 ZeSTARTING ADDRESS OF TEST 17 
060576 022304 <WORD TS120+¢ S:STARTING ADDRESS OF TEST 20 
060600 023046 “WORD TST21¢ S:STARTING ADDRESS OF TEST 21 
060602 02361 “wORD TST ¢* S:STARTING ADDRESS OF TEST 32 
060604 024114 “WORD TST23¢ SISTARTING ADDRESS OF TEST 
0606 024420 ;WORD TST2a¢2 S:STARTING ADDRESS OF TEST 24 
060610 024762 “WORD TS12542 ‘:STARTING ADDRESS OF TEST 25 
060612 025304 WORD TST2642 S:STARTING ADDRESS OF TEST 26 
060614 0256e2 WORD S1¢/eg T:STARTING ADDRESS OF TEST @ 
060616 026534 “WORD 1513042 T:STARTING ADDRESS OF TEST 30 
060620 027356 “WORD TST3142 S:STARTING ADDRESS OF TEST 31 
060622 030140 “WORD TS13242 S:STARTING ADDRESS OF TEST 32 
060624 031310 “WORD TS133+2 S:STARTING ADDRESS OF TEST 33 
7 .SBTTL ERROR HANDLER ROUTINE 
peeeeereereneeetereeeteterenekeneeeeeeeeaeeeeeeeeteeeeeeeeReetes 
SSTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM NUNBER AND THE ADDRESS OF THE ERROR CALL 
:*AND GO TO ERRTYP ON ERROR 
[*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
> #SW1S=1 HALT ON ERROR 
‘ eeul se} INHIBIT ERROR TYPEOUTS 
:*Swl0=1 BELL ON ERROR 
i eSu09=1 LOOP ON ERROR 
7*CALL 
te ERROR N ::ERROR=EMT AND N=ERROR ITEM NUMBER 
060626 SERROR: 
060626 104410 CKSWR sr TEST FOR CHANGE IN SOFT-SwWR 
060630 105237 001117 7$: INCB = SERFLG ::SET THE ERROR FLAG 
060634 001775 BEQ 7$ ;:DON'T LET THE FLAG GO TO ZERO 
060636 013777 001116 120312 MOV STSTNM,@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
060644 032777 002000 120302 BIT #B1T10, aswe :3BELL ON ERROR? 
060652 001402 BEQ 1$ =NO = SKIP 
06654 104401 001212 TYPE S$BELL RING BELL 
06 005237 001126 1$: INC $ERTTIL [COUNT THE NUMBER OF ERRORS 
060664 011637 001132 MOV (SP), SERRPC [:GET ADDRESS OF ERROR INSTRUCTION 
060670 16273? 001132 SUB P 
060676 117737 120230 001130 MOVE aSERRPC,SITEMB :iSTRIP AND SAVE THE ERROR ITEM CODE 
060706 032777 020000 120242 BIT #B1T13,aSWR SKIP TYPEOUT IF SET 
060712 001004 . BNE 208 ::SKIP TYPEOUTS 
060714 004737 032550 JSR PC ERRTYP 7:60 TO USER ERROR ROUTINE 
060720 104401 001217 TYPE =, $CRLF 
060724 208: 
060724 122737 000001 001242 CMPB = MAPTENV,SENV —s ; ; RUNNING IN APT MODE 
060732 001007 BNE 2$ ;iNO,SKIP_APT ERROR REPORT 
060734 113737 001130 060746 MOVB SITENB. 218 [SET ITEM NUMBER AS ERROR NUMBER 
060742 004737 062670 JSR PC, SAT [REPORT FATAL ERROR TO APT 
060746 000 218: -—BYTE 0O 
060747 ‘BYTE 0 
060750 00077 22%: BN 22% :7APT ERROR LOOP 
060752 005777 120176 2$: TST asur >:HALT ON ERROR 
060756 100002 BPL 3$ *:SKIP IF CONT INUE 
060760 000000 HALT ssMALT ON ERR 
060762 104410 CKSWR 3 TEST FOR CHANGE IN SOF T-SwR 
060764 032777 001000 120162 38: BIT #81109, aSwR [ILOOP ON ERROR SWITCH SET? 
060772 001402 BEQ 4$ *:BR IF NO 


o-, 


E 
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ERROR HANDLER ROUTINE SEQ 0236 
060774 013716 001124 MOV SLPERR, (SP) ::FUDGE RETURN FOR LOOPING 
061000 005737 001210 4$: 1ST SESCAPE +: CHECK FOR AN ESCAPE ADDRESS 
061006 001402 BEQ 5$ ::BR IF NONE 
061006 013716 001210 - MOV SESCAPE, (SP) > FUDGE RETURN ADDRESS FOR ESCAPE 
061012 022737 032530 000042 CMP WSENDAD,Q#42 =; ;ACT=11 AUTO-ACCEPT? 

061020 001001 BNE 6$ ::BRANCH IF NO 
061022 000000 HALT +H YES 
061024 6$: 
061024 000002 RT] : RETURN 
8 .SBTTL TTY INPUT ROUTINE 
se RAHM eeeeeeeeeeeeeee eee eee teReeRekeKeeeteeeeneKeneeeeeeeeeeee 
-ENABL LSB 
061026 000000 STKCNT: .WORD 0 : NUMBER OF ITEMS IN QUEUE 
061030 000000 STKQIN: .WORD 0 >: INPUT POINTER 
061032 000000 $TKQOUT: .WORD 0 ::OUTPUT POINTER 
061034 STKQSRT: .BLKB 1 ::TTY KEYBOARD QUEUE 
061035 STKQEND=. 
EVEN 
p*TK INITIALIZE ROUTINE 
7*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
;*CALL: 
ie JSR PC, STKINT 
7° RETURN 
061036 005037 061026 $TKINT: CLR STKCNT CLEAR COUNT OF ITEMS IN QUEUE 
061042 012737 061034 061030 MOV #STKQSRT,STKQIN : i:MOVE THE STARTING ADDRESS OF THE 
061050 013737 061030 061032 MOV STKQIN, $TKQOUT SOUEUE INTO THE INPUT & OUTPUT POINTERS. 
061056 012737 061106 000060 MOV #STKSRV a#TKVEC i: INITIALIZE THE KEYBOARD VECTOR 
061064 012737 000200 000062 MOV #200,a#TKVEC+2 ::" BR 
061072 005777 120064 TST astKB >: CLEAR DONE A 
061076 012777 000100 120054 MOV #100, aSTKS ::ENABLE TTY KEYBOARD INTERRUPT 
061104 000207 RIS PC ::RETURN TO CALLER 
:*TK SERVICE ROUTINE 
T*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
[*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
[*]1T IN THE QUEUE. 
:*1F THE CHARACTER IS A "CONTROL-C"' (*C) STKINT IS CALLED AND 
;*UPON RETURN EXIT IS MADE TO THE "CONTROL-C'’ RESTART ADDRESS (SHUT2) 
061166 117746 120050 $TKSRV: MOVB aSTKB ~($P) : PICKUP THE CHARACTER 
061112 042716 177600 BIC #°C177,( :iSTRIP THE J 
061116 021627 000003 CMP (SP) ,# sIS ITA CONTROL (? 
061122 001007 BNE 1$ ::BRANCH IF NO 
061124 104401 062222 TYPE ,SCNTLC ::TYPE A CONTROL=C (*C) 
061130 004737 061036 JSR PC. STKINT >: INIT THE KEYBOARD 
061134 005726 TST (SP)¢ [CLEAN UP STACK 
061136 000137 057034 JMP SHUT2 i: CONTROL C RESTART 
061142 021627 000007 1$: CMP (SP), #7 :1S8 IT A CONTROL G? 
061146 001006 BNE 2$ 3 7BRAN CH IF NO 
061150 022737 000176 001154 CMP #SWREG, SWR 71S SOFT=SWR SELECTED? 
061156 001500 BEQ 6$ 7:60 TO SWR CHANGE 


F 
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TTY INPUT ROUTINE SEQ 0237 
061160 2$: 
061160 022737 000001 061026 CMP #1, STKCNT ri1S THE QUEUE FULL? 
061166 001004 BNE 3$ ::BRANCH IF NO 
061170 104401 001212 TYPE , $BELL S:RING THE TTY BELL 
061174 005726 TST (SP) 4 ii CLEAN CHARACTER OFF OF STACK 
061176 000451 BR 5$ IT 
061200 021627 000023 3$: CMP (SP), #23 ::1S IT A CONTROL=S? 
061204 001021 BNE 32$ ::BRANCH IF NO 
061206 005077 117746 CLR astKs S:DISABLE TTY KEYBOARD INTERRUPTS 
061212 005726 TST (SP)4 : CLEAN CHAR OFF STACK 
061214 105777 117740 318: TSTB =—s @STKS t:WAIT FOR A CHAR 
061220 100375 BPL 31$ ::;LOOP UNTIL ITS THERE 
061222 117746 117734 MOVB  a$TKB,-(SP) 7:GET THE CHARACTER 
061226 042716 177600 BIC #°C177, (SP) S:MAKE IT 7-BIT ASCII 
061232 022627 000021 CMP (SP)+, #21 ::1$ IT A CONTROL-Q? 
061236 001366 BNE 31$ *:BRANCH IF NO 
061240 012777 000100 117712 MOV #100, a$TKS : :REENABLE TTY KEYBOARD INTERRUPTS 
061246 000002 RTI URN 
061250 005237 061026 328: INC STKCNT ::COUNT THIS CHARACTER 
061254 021627 000140 CMP (SP) #140 ::1$ IT UPPER CASE? 
061260 002405 BLT 4$ ::BRANCH IF YES 
061262 021627 000175 CMP (SP) #175 :31S 11 A SPECIAL CHAR? 
061266 003002 BGT 4$ ::BRANCH IF YES 
061270 042716 000040 BIC #40, (SP) ;MAKE IT UPPER CASE 
061274 112677 177530 4$: MOVB  (SP)+,a$TKQIN 3 AND PUT IT IN QUEUE 
061300 005237 061030 INC STKQIN ‘UPDATE THE POINTER 
061304 023727 061030 061035 CMP STKQIN, #$TKQEND 360 OFF THE END? 
061312 001003 BNE 64 [BRANCH IF NO 
061314 012737 061034 061030 MOV #STKOQSRTSTKQIN :RESET THE POINTER 
061322 000002 5$: RT] + :RETURN 
PL eeeeeekeneeeeeeeeeeeeeeeeeereeeKeeeeeeeeeneteeeeeeeeteeeeeeneee 
T*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
>*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
>*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP 
>*CALL WHEN OPERATING IN TTY INTERR uPr ODE. 
0613246 022737 000176 001154 $CKSWR: CMP #SWREG, SWR i:1S THE SOFT-SWR SELECTED 
061332 001124 BNE 15$ Tey IF NOT 
061334 105777 117620 TSTB = @STKS ‘1S A CHAR WAITING? 
061340 100121 BPL 15$ iil NOT, EXIT 
061342 117746 1176146 MOVB a$TKB,-(S 
061346 042716 177600 BIC w°C177, (5 T:MAKE IT 7-BIT ASCII 
061352 021627 000007 CMP (SP) a? ::1S IT A CONTROL=G? 
061356 001300 BNE 2$ ii] NOT. PUT IT IN THE TTY QUEUE 


CPTI t iii ii iii iii iii iii ititiiit) 
: #CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY reee% Pit te 
;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
;*CONTROL-G BEING TYPED, AND THE oo SWITCH REGISTER BEING SELECTED. 


061360 123727 001150 000001 és: CMPB SAUTOB, #1 3 ;ARE WE RUNNING IN AUTO-MODE? 
061366 001674 BEQ 23 ; BRANCH IF YES 

061370 005726 TST (SP)+ fies CONTROL=-G OFF grate 
061372 004737 061036 JSR PC,STKINT sFLUSH THE TTY INPUT QUEUE 
061376 005077 117556 CLR asixs {DISABLE TTY KEYBOARD INTERRUPTS 
061402 112737 000001 001151 MOVB #1 SINTAG SET INTERRUPT MODE INDICATOR 


CZR 
TTY 


INPUT ROUTINE 


061444 
061450 


061454 


et at et ts 
Mum 
Wwronrnr— 
NMOENOF 


40 
42 
46 


SPOAASOOOOAVMIADDNNNYY 


SNORSSNS ROSS 


3335 


SSSSSSSSSSSSSSSSSSSSSSSSES FREES 
SOONG £NwO 


me a st te te et tt ss ss 


ooo 
ovum 


104401 


000737 


021627 


gosee=c 
SoooRS 


—ooO 
ES 

. 

= 
oo — 
-—~NO 
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062234 
062241 
000176 


062252 
117516 
117512 
177600 
000003 
062222 
000006 
001151 
000100 
057034 
000025 


062227 
000006 


000015 
000004 
000002 
06 

7 
001151 


000100 


060100 
000060 


000067 


000060 
000002 


000002 
177776 


001216 


G 
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000001 
117450 


117376 


000001 
117354 


] 
$GTSWR: 


19$: 
7$: 


208: 


17%: 


18$: 


»$CNTLG 

. SMSWR 
SWREG,=(SP) 
, SMNEW 
-(SP) 


- (SP) 
asTKs 
7$ 


as$TKB,-(SP) 
#°C177, (SP) 
(SP), #3 

9 

/SCNTLC 
#6,SP 
SINTAG, #1 
8$ 

#100, ,a$TKS 
SH 


ute 


(SP) ,#25 
10$ 


Semin wwe 


00,a$TKS 


eSTYPEC 
P) ,#60 


(SP) 
=2(SP), (SP) 


,$QUES 


SEQ 0238 


3;ECHO THE CONTROL=G (“*G) 
3: TYPE CURRENT ‘yg Ht 
+3 SAVE SWREG FOR TYPEOUT 
3G0 TYPE--OCTAL oa DIGITS) 
+: PROMPT FOR NEW SWR 
:;CLEAR COUNTER 
37 THE NEW SWR 
7;CHAR THERE? 
37 1F NOT TRY AGAIN 


::PICK UP CHAR 
33MAKE IT 7-BIT ASCII 


::1S IT A CONTROL=C? 
Shree IF NOT 
i: YES .y CONTROL=C (*C) 
ECLEAN U STACK 
REENABLE TTY KEYBOARD INTERRUPTS? 
::BRANCH IF NO 
;:ALLOW TTY KEYBOARD INTERRUPTS 
::CONTROL=C RESTART 


3318S 1T A CONTROL-U? 
ee IF NOT 
ECHO CONTROL=U (“U) 
:TGNORE PREVIOUS INPUT 
SILET® S TRY IT AGAIN 


3731S IT A <CR>? 
;;BRANCH IF NO 
VES. pie hy FIRST CHAR? 


3: CLEAR UP STACK 
:;ECHO <CR> AND < 
; ;RE~ENABLE TTY <BD INTERRUPTS? 


F NOT 
ot Pa TTY KBD INTERRUPTS 


:¢ : 
BRANCH IF YES 


C 
;;BRANCH IF YES 
::STRIP-OFF ASCII 
21S THIS THE FIRST CHAR 
: ;BRAN NCH IF YES 

NO, SHIFT PRESENT 
$3 CHAR eee TO MAKE 


OM FO 
i KEEP COUNT OF CHAR 
:7;SET IN NEW CHAR 
3:GET THE NEXT ONE 
SZ TYPE ?<CR><LF> 


CZRMNAO RMOS/3/2 FCTNL 
TTY INPUT ROUTINE 


061664 


061666 


061754 


061756 


000720 


011646 


000002 
005737 


000002 


—~ e 
Nm—o 


=SS8 


ooo-——oo°0o— 
SSSs=sns=s 
Oo FOWWNO Ow Sh 
DAD NE NWO SM SENOS 


TST 2 


000004 
000004 


061712 


061026 
061026 


061032 
061034 


000134 
062210 
177777 


062212 


062210 
062210 
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000002 


000004 
061035 
061032 


062210 


BR 
-DSABL LSB 


208 


3-SIMULATE CONTROL=U 


SERRE EEA TERETE TERRA RKRKeeHeKeeee eee eteee 


TETHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


*CALL: 


* 


SRDCHR: Aa 


64$: 
1$: TST 


2s: RT] 


*CALL: 
:* RDLIN 
te RETURN HERE 
*® 
SRDLIN: MOV R3,-(SP) 
CLR -(§P) 
1$: MOV #STTYIN,R3 
2$: CMP #STTYINGR. ,R3 
LoS Ss 4S 
RDCHR 
MOVB (SP)+,(R3) 
10$:  CMPB #177,(R3) 
BNE 5$ 
TST (SP) 
BNE 6$ 
MOVB ss #'\ 9% 
TYPE e 
MOV #-1, (SP) 
6$: DEC R 
CMP R3,#STTVIN 
BLO 4$ 
MOVB = (R3) , 98 
TYPE 9% 
BR b$ 
5$: TST (SP) 
BEQ 7$ 


RDCHR 
i RETURN HERE 


$TKCNT 
a$TKQOUT ,4(SP) 
$TKQOUT 


::GET A CHARACTER FROM THE QUEUE 
;; CHARACTER IS ON THE STACK 
WITH PARITY BIT STRIPPED OFF 
tite — THE PC AND 
IGE! READY FOR A CHARACTER 
7zPUT NEW PS ON STACK 
;:PUT NEW PC ON STACK 
::POP NEW PC AND PS 
;:WAIT ON A CHARACTER 

; sDECREMENT aki 


DATE THE POINTER 


KQ ; UP 
$TKQOUT, WSTKQEND’ :;D1D IT GO OFF OF THE END? 
2$ : BRANCH IF NO 
WSTKQSRT,STKQOUT. ty 3 THE POINTER 
; ;RETURN 


ee 
SRR eee eee eee eee eee eee ee Kee KKeKeeekeeeeeneeeeeteeteeeeeee 


;*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


:: INPUT A STRING FROM THE TTY 
ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
7; TERMINATOR WILL BE A BYTE OF ALL 0°S 


ss SAVE R3 
CLEAR THE tet KEY 
SIGET ADDRESS 

; BUFFER FULL? 

::BR IF YES 

::G0 READ ONE CHARACTER FROM THE TTY 
:;GET CHARACTER 

iTS i ¢ A RUBOUT 


IF NO 
3318 ae THE FIRST RUBOUT? 
:;TYPE A BACK SLASH 
+3 SET THE RUBOUT KEY 


2s YES 
:iS€1UP 10 TYPEOUT THE DELETED CHAR, 


3:G0 READ ANOTHER CHAR, 
peo" ast SET? 


SEQ 0239 


mon 


062056 


& 


¥ Wwrn—— 
FOSwos rw 


062252 


CZRMNAQ RMOS/3/2 FCTNL TST 2 
Y INPUT ROUTINE 


112737 


-—-—90O 4 OO OS Ss 4 O 
oConwvo—-Scooo 


So 
™ 
a te 
oO 
a 


S=SS=s2sS25 
S 
es 
Nm 


000134 062210 
062210 
000025 
062227 
000022 
001217 
062212 
001216 
062210 
062210 
000015 


177777 
001220 


000004 000002 
062212 000004 


000004 000002 


7$: 


4$: 
3$: 


9$: 


STTYIN: . 


SRORAAAA EAE KAA eee ee Ke KKK Keke eee eee 


SaTHIS ROUTINE WILL READ AN OCTAL (ASCI1) NUMBER FROM THE TTY AND 


MOVB W'\,9% 
.9$ 

C (SP) 

CMPB #25, (R3) 

TYPE SCNTLU 

BR 

CMPB #22, (R3) 
3$ 

CLRB (R3) 


TYPE =, $CRLF 
TYPE $TTYIN 
b¢ 


BR 
TYPE $QUES 
BR i$ 

MOVB = (R3),9$ 
TYPE 


-9$ 
CMPB #15, (R3)+ 
CLRB =1(R3) 


LF 
MOV (SP)+,R3 
MOV (SP) ,-(SP) 
MOV 4(SP),2(SP) 
MOV @STTYIN,4(SP) 
RTI 
-BYTE 0 
BYTE 0 
-BLKB 8, 
eASCIZ = /*C/<15><12> 
eASCIZ = /*U/<15><12> 


: IASCIZ /*G/<15><1a> 
eASCIZ <15><12>/SWR = 


eASCIZ / NEW = 


l 
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i: TYPE A BACK SLASH 
:eCLEAR THE ew KEY 


221 ge laeael 


CTRL U? 


:BR IF 
3 TYPE A CONTROL ‘'U"’ 


:GO START OVER 
3318 aa ca A '*R''? 
A IF NO 


7: TYPE A 


NCH 
;: CLEAR THE GHORACTER 


:: TYPE THE INPUT STRING 


+360 at ANOTHER CHACTER 
::CLEAR THE BUFFER AND LOOP 


:3;ECHO THE CHARACTER 
shee FOR RETURN 


P IF NOT 


RETURN 
TICLEAR RETURN (THE 15) 


:;TYPE A LIN 


E FEED 
Ht oe whe KEY FROM THE STACK 


; RESTORE R 


:sADJUST THE STACK AND PUT ADDRESS OF THE 
ae FIRST ASCII CHARACTER ON IT 


:eRETU 
OT ORAGE Stee ASCI1 CHAR. TO TYPE 


33 TERMINA 


Hy be hg A Artes FOR TTY INPUT 


3: CONTR 


3; CONTROL u" 
peeenie, fs 


READ AN OCTAL NUMBER FROM THE TTY 


:*CHANGE IT TO BINARY. 


SRDOCT: 


23: 


s* CALL: 


RDOCT 
RETURN HERE 


::READ AN OCTAL NUMBER 


:;LOW ORDER BITS ARE ON TOP OF THE STACK 
::HIGH ORDER BITS ARE IN $HIOCT 


:sPROVIDE SPACE FOR THE 
NUMBER 


‘ ° ; INPUT Ni 


TREAD AN ASCIZ LINE 
::GET ADDRESS OF 1ST CHARACTER 
::CLEAR DATA WORD 


::PICKUP THIS — 


:71F ZERO GET O 


SEQ 0240 


062364 


062424 


062426 
062430 
062436 


006301 


000000 


000200 


011646 
016666 
000002 


0 
057214 


CZRMNAQ RMOS/3/2 FCTNL TST 2 
READ AN OCTAL NUMBER FROM THE TT 


177770 


000012 
062364 


000002 
000020 
062404 


000002 


062440 


000004 000002 


3$: 


$HIOCT: 


on eH Dw w-BawwwwZzD 
AMMM—-YRYW rO—T—fro— 


RD 0 
.SBTTL TRAP DECODER 
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nT 
334 
338 


::STRIP THE ASCII JUNK 
;;ADD_IN THIS DIGIT 


;;LOOP 
;:CLEAN TERMINATOR FROM STACK 
;;SAVE THE RESULT 


;;POP STACK INTO R2 
::POP STACK INTO RI 
+ sPOP STACK INTO RO 


URN 
:;HIGH ORDER BITS GO HERE 


RARER AREER EEA ERE TEAR AERA RHERREKAe eee 


SeTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ''TRAP’’ INSTRUCTION 
s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 


:*OF THE DESIRED ROUTINE. 


:*G0 TO THAT ROUTINE. 


STRAP: 


1$: 


R 
STRPAD(RO) ,RO 
RO 


THEN USING THE ADDRESS OBTAINED IT WILL 


;;ASSUME THE STATUS OF 

ee THE a tle NOT ALLOW 

:3_T-BIT_ TRAPS 

3 ee a NeW STATUS 

:3GET TRAP ADDRESS 

; BACKUP BY 2 

:3GET RIGHT BYTE OF TRAP 
:POSITION he INDEXING 


:: INDEX TO TABLE 
7:60 TO ROUTINE 


i:THIS 1S USE TO HANDLE THE ‘'GETPRI*' MACRO 


STRAP2: 


MOV 
MOV 
RT] 


(SP) ,-(SP) 
4(SP),2(SP) 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE en ADDRESSES OF THE ROUTINES CALLED 
7*BY THE ‘‘TRAP’’ INSTRUCTION 


$TRPAD: 
4 


ROUTINE 


STYPDS 


STRAP2 
3 CALL= TYPE 


7: CALL=TYPOS 


;:MOVE THE PC DOWN 
::MOVE THE PSW DOWN 
:;RESTORE THE PSw 


SEQ 0241 


TRAP#1(104401) TTY TYPEOUT ROUTINE 

Hh aeraed HY wre sf TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TRAP+3(104405) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


ma 


K 3 
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_ TRA SEQ 0242 
| 062454 057140 STYPBN ;;CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 
062456 061414 SGTSWR ;;CALL=GTSWR TRAP+7(104407) GET SOFT=SWR SETTING 
062460 061324 SCKSWR ;;CALL=CKSWR TRAP*+10(104410) TEST FOR CHANGE IN SOF T-SWR 
062462 061666 SRDCHR ;;CALL=ROCHR TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
062464 061756 SRDLIN ;;CALL=ROLIN TRAP+} tb red | TTY TYPEIN STRING ROUTINE 
062466 062264 S$RDOCT ;;CALL=RDOCT TRAP+13(104415) READ AN OCTAL NUMBER FROM TTY 
062470 057044 SSAVREG ;;CALL=SAVREG TRAP+14(104414) SAVE RO-R5 ROUTINE 
062472 057102 SRESREG ;;CALL=RESREG  TRAP4*15(104415) RESTORE RO-R5 ROUTINE 
im -SBTTL POWER DOWN AND UP ROUTINES 


SRR ERATE EAE AEA ATAK TAREE 


“BOWER — ROUTINE 


062474 012737 062634 000024 $PWRDN: MOV MSILLUP,Q#PWRVEC ;;SET FOR FAST UP 
062502 012737 000340 000026 MOV #340, ,a#PWRVEC+2 ;:PRIO:7 
062510 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
062512 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 
062514 010246 MOV R2,-(SP) 37PUSH R2 ON STACK 
062516 010346 MOV R3,-(SP) : 7:PUSH R3 ON STACK 
062520 010446 MOV R4,-(SP) 3;PUSH R4& ON STACK 

2522 010546 MOV R5,-(SP) 3;PUSH RS ON STACK 
062524 017746 116424 MOV aSWR,-(SP) +:PUSH @SWR ON STACK 
062530 010637 062640 MOV SP, SSAVR6 T:SAVE SP 
062534 012737 062546 000024 MOV #SPWRUP ,Q#PWRVEC ;;SET UP VECTOR 
062542 000000 HALT 
062544 000776 72 ::HANG UP 

RRR A ARERR EERE TATA eee KRKeKeeKeteeeeeneneeeeene 
“POWER UP ROUTINE 

062546 012737 062634 000024 $PWRUP: MOV WSILLUP ,a#PWRVEC ;;SET FOR FAST DOWN 
062554 013706 062640 MOV SSAVRO6,SP ::GET SP 
062560 005037 062640 CLR SSAVR6 ::WAJT LOOP FOR THE TTY 

2564 005237 062640 1$: INC SSAVR6 s:WAIT FOR THE INC 
062570 001375 BNE 1$ ::0F WORD 
062572 012677 116356 MOV (SP)+,aSwWR ::POP STACK INTO aSwR 
062576 012605 MOV (SP)+,R5 ;;POP STACK INTO RS 

2 012604 MOV (SP)+,R4 3;POP STACK INTO R4& 
062602 012603 MOV (SP)+,R3 3;POP STACK INTO R3 

26046 012602 MOV (SP)+,R2 ::POP STACK INTO R2 

26 012601 MOV th oD +3 POP STACK INTO R1 
062610 012600 MOV (SP)+,RO STACK INTO RO 
062612 012737 062474 000024 MOV #SPWRON, AMPWRVEC :gSet UP THE POWER DOWN VECTOR 
062620 012737 000340 000026 MOV #340, a#PWRVEC+2 ;:PRIO:7 
062626 104401 TYPE ‘hepOnt THE POWER FAILURE 
062639 062642 SPWRMG: .WORD  SPOWER t:POWER FAIL MESSAGE POINTER 
062632 000002 RTI 
062634 000000 SILLUP: HALT Z;THE POWER UP SEQUENCE WAS STARTED 
062636 000776 BR .°2 >: BEFORE THE POWER DOWN WAS COMPLETE 
062640 000000 SSAVR6: 0 _, 2sPUT THE SP HERE 
062642 015 012 120 $POWER: ~ASCIZ <15><12>"'POWER 

12 .SBTTL APT COMMUNICATIONS ROUTINE 
"Meee eeeeeeeteeeeeeketeketeteekeekheteneaheseeeeene 

062652 112737 000001 063116 $ATY1: mova. #i SFFLG :TO REPORT FATAL ERROR 
062660 112737 000001 063114 $ATY3: MOVB #1.$MFLG ‘10 TYPE A MESSAGE 


Ph L 
CZRMNAO RMOS/3/2 FCTNL TST 2 MACRO V03.01 11-APR-80 13:17:48 PAGE 33-15 


| APT COMMUNICATIONS ROUTINE SEQ 0243 

062666 000403 BR SATYC 
poser} 112737 000001 063116 Seite, MOVB #1,SFFLG 3:70 ONLY REPORT FATAL ERROR 
062676 010046 MOV RO,=(SP) ::PUSH RO ON STACK 
062700 010146 MOV R1,-(SP) ::PUSH R1 0 
062702 105737 063114 TSTB $M MFLG +s SHOULD ripe af MAE SSAGE? 
062706 001450 BEQ $ F NOT: 
062710 122737 000001 001242 CMPB ss WAP TENV, SENV  } OPERATING UNDER APT? 
062716 001031 BNE $ OT: BR 
062720 132737 000100 001243 B1TB #APTSPOOL,SENVM i SHOULD SPOOL MESSAGES? 
062726 001425 BEQ $ NOT 
062730 017600 000004 MOV a4(SP),RO +:GET MESSAGE 5 hei 
062734 062766 000002 000004 ADD #2,4(SP) ;;BUMP RETURN ADDR. 
062742 005737 001222 1$: TST SMSGTYPE :3SEE IF bone W/ LAST XMISSION? 
062746 001375 BNE 1$ NOT: WAIT 
062750 10037 001236 MOV RO, SMSGAD +: PUT ADDR IN MAILBOX 
062754 105720 2s: TSTB (RO) + 37FIND END OF MESSAGE 
062756 001376 BNE 2$ 
062760 163700 001236 SUB SMSGAD,RO ats START OF MESSAGE 
062764 006200 ASR RO +f MESSAGE I.NGTH IN WORDS 
062766 010037 001240 MOV RO, S$MSGLGT +:PUT LENGTH IN MAILBOX 
062772 012737 000004 001222 MOV #4, SMSGTYPE 40 APT TO TAKE MSG. 
063000 000413 BR 5$ 
063002 017637 000004 063026 3$: MOV a4(SP) ,4$ 77PUT MSG ap IN JSR LINKAGE 
063010 062766 000002 000004 ADD #2,4(SP) “girs ADDRESS 
063016 013746 177776 MOV 177776,-(SP) ::PUSH bee ON STACK 
063022 004737 057666 JSR PC,STYPE ;;CALL TYPE MACRO 
063026 000000 4$: .WORD 0 
063030 5$: 
063030 105737 063116 10$: TSTB SFFLG +4 as * FATAL ERROR? 
063034 001416 BEQ 12$ NOT 
063036 005737 001242 TST SENV 3 RUNNING UNDER APT? 
063042 001413 BEQ 12$ :1F NOT: BR 
06304 005737 001222 118: TST SMSGTYPE 3 FINISHED op MESSAGE? 
063050 001375 BNE 11$ ‘IF NOT: WA IT 
063052 017637 000004 001224 MOV Q4(SP) ,SFATAL GET ERROR 
06 062766 000002 000004 ADD #2,4(SP) oBUN P RETURN ADDR. 
063066 005237 001222 INC SMSGTYPE s TELL abi TO TAKE ERROR 
063072 105037 063116 12$: CLRB SFFLG 3; CLEAR FATAL FLAG 
063076 105037 063115 CLRB ss SLFLG S:CLEAR LOG FLAG 
063102 105037 063114 CLRB SMFLG 3:CLEAR MESSAGE FLAG 
063106 012601 MOV (SP)+,R1 3;POP STACK INTO R1 
063110 012600 MOV (SP)+,RO0 + POP —— INTO RO 
063112 000207 RTS PC URN 
063114 0 SMFLG: .BYTE 0 i iMESSG. FLAG 
063115 000 SLFLG: .BYTE O. . LAG 
063116 000 SFFLG: y 0 +P ATAL FLAG 

000200 APTSIZE = 200 

000001 APTENV = 001 

000100 APTSPOOL= 100 

000040 APTCSUP = 040 


, 


Seale ~' 
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CONSOLE MESSAGES 


Ss SSS Ss rS s s hhs seseens 
‘ 


SSSS SSS SSDS SSS SSS SESS 


ras 


g 


So 
o 
SNORRSISRALAS 


SESE 


o 


$3s 

ee o 
WWW 
NO Sh 


Pre 


ND WE WN OODNOA UE WN ODO DNOU EWR HM OOONOUE Whe 
WM UII NI 


AWWAAWN AWARD POPUP NPINPUDINURS — Ss ss 


MMMRNOO—OoOnrn 


™Nm 
oS 
oO 
att Ht ID > > ss — ss st OO —Oor 


—— SS NON 


oooouUNnfFonoo 
ooooeofo-—V9o0O 
oN SM —O—ONO NMNMOMNESnN—CO-O 


NNOO=MEN BMF SNE USE NMUWWA FNWOF ONS ONO 


| 4 
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— Ss ss se —s ee oo — 1 OO — — 
Oo — ea ny —wWw =f O — froth — we" O " O FF — —oO 
SONNWAKN— OK OMNI OC ONS NOOF Om 


os 


.SBTTL 
SCTMSG: 
rege 
Ques: 
COMMA: 
MSHELP: 


UBUSQST: 


CNSLOO: 


CNSLO?: 


CNSLOB: 


ONLINE : 
EVEN 


CONSOLE MESSAGES 


e 
> 
4d 
aon 
~ 
~ 


>>>>> 


NN NNN NN eB BE PP Na ee Be Oe ee BP 


<CRLF>@FAILED TO RECOVER THE BAD SECTOR FILE(DEC 144)a 
—— THIS DRIVE@ 


a= 
@ALLA<CRLF > 
a?a 


a, a 
<CRLF>@TO ENSURE THAT NO BAD HEADERS ARE LEFT ON THE DISKa 
<CRLF>@PACK, THIS PROGRAM SHOULD BE HALTED BY TYPING 4 (*0)a 
<CRLF>@CONTROL C. AS A RESULT, THE PROGRAM WILL BE HALTED@ 
<CRLF>@WHEN THE DRIVE UNDER TEST HAS COMPLETED TESTING. a<CRLF> 
<CRLFO>@TYPE HELP TEXT (Y/N) ? @ 


<CRLF>@CHANGE ADDRESSES (Y/N) ? @ 
<CRLF>@USE SAME DEVICES (Y/N) ? a 
<CRLF>@BUS ADDRESS @ 

@ LIMITS - LO= 160000, HI= 17XXXxXa<CRLF> 
@VECTOR ADDRESS a 

Ny ITS = LO= 0, HI= 1000@<CRILF><LF> 


EVEL @ 
eg - LO= 0, HIl= 7A<CRLF><LF> 
< 
<CRLF>@TYPE ‘'A’’ TO TEST ALL DRIVES, OR TYRE DRIVE NUMBER(S)@ 
oy gua TERMINATE INPUT WITH A CARRIAGE RETURN.@ 
< 
@ 71LLEGAL INPUT@<CRLF > 
aa / 


1S _LOAD At eed 
/ NOT PRESENT 
/ NOT AVATLABLE/ 
/ OFF LINE/ 
/ ON LINE / 


~™ 


SEQ 0244 


é& 


| 
| 
' 
| 
| 
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POPS Ny Ss Ss Ss os 
NOV ESWN OO OONOA UE WH OOOO UF Wh 


Wrenn 
m—O Oe 


5 
2 064406 
57 064406 020000 


: N 
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-SBTTL FUNCTION CODE TABLE 


TwE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
sfACm FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 


ATA = BIT 15_1S SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE 
2 if ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED, OTHERWISE, 
:B17 15 as ee NDICATING THAT ATA SHOULD NOT NORMALLY BE SET. 
7E THA BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 
i$ NOT EXPECTED AS A RESULT OF THE COMMAND. 


WCE = BIT 14 1S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
uF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 


OP] = BIT 13 1S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF OPI ERRORS” ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


IvC = BIT 12 1S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF IvC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


WLE - B17 11 1S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF Ba COMMAND . 
;THE WRITE ERRORS WHICH ARE ENABLED ARE "WLE'', “WCF, DPE’, "UPE’. 


1AE = BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
TIF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 


AOE - BIT 09 1S SET _IN THE ERY FOR A GIVEN FUNCTION CODE 
IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE 
i COMMAND uel An eens Senate BY TH]S BIT ARE ‘‘TRE'', ‘DLT’, ‘'NEM’’, 


: BIT 08 IS NOT USED. 


HCE = BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF HEADER ERRORS ARE ENABLED Once THE SRE CUT OR OF THAT COMMAND. 
;HEADER ERRORS INCLUDE "HCRC'', "HCE'', ‘FER’, AND "BSE". 


ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF THAT 
;COMMAND. THESE ERRORS INCLUDE "MDPE’', "'DCK'', AND ‘"ECH' 


BIT 05 IS NOT USED. 
BIT 04 IS NOT USED. 
BIT 03 IS NOT USED. 
BIT 02 1S NOT USED. 
BIT 01 I$ NOT USED. 
ILF = BIT 00 1S SET IF THE FUNCTION CODE IS ILLEGAL. 
FNCDTB: | ;FUNCTION CODE TABLE 


-WORD OPI ; NOP 


SEQ 0245 


— 
CZRMNAO RMOS/3/2 + tees TST 2 


FUNCTION CODE TABL 


130001 


4 
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OPI!ATA!ILF! IVC 
ATA! OPI! IVC! AE 
ATA! OPI! IvC 

OP] 


OPI! IvCc 
OPI!ATA! IVC 
OPI!ATA! IVC 
OP] 


OP] 
OPI!ATA!ILF! IVC 


OP! !ATA'ILF ‘IVC 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 

WCE! OPI! IVC! 1AE!AOE!HCE!ECH 
WCE!OPI! IVC! IAE! AOE! HCE!ECH 
OPI!ATA!ILF! IVC 

OPI !ATA!ILF! IVC 

OPI! IVC!WLE! LAE: AOE! HCE 
OPI! IVC!WLE! 1AE! AOE 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 

OPI! IVC! 1AE! AOE! HCE!ECH 
OPI! I]VC!1AE!AOE!HCE!ECH 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 


SEQ 0246 
GAL FUNCTION (2) 
LIBRATE 


Bete ee 
Dzau 
mene 
amr 
Pam 


; OFFSET 

RETURN Y CENTERLINE 
sREAD IN PRESET 

PACK ACKNOWLEDGE 
ZILLEGAL FUNCTION (24) 
eebhcem FUNCTION (26) 


ILLEGAL FUNCTION ( 
ILLEGAL FUNCTION ( 
ILLEGAL FUNCTION ( 
LLEGAL FUNCTION (40) 


CHECK HEADER AND DATA 
L FUNCTION (54) 

L FUNCTION (36) 

ATA 


D 

HEADER AND DATA 

+ ILLEGAL FUNCTION (64) 
4 Sy ts ata (66) 


;READ HEADER AND DATA 
ILLEGAL FUNCTION (74) 
ZILLEGAL FUNCTION (76) 


mmnaqm 
>> 


ma 


CZRMNAO RMOS/3/2 FCTNL TST 2 


ATTENTION (ATA) TABLE 


—OODONO VF wr 


22298292 


C 4 
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~SBTTL ATTENTION (ATA) TABLE 
BY 


ATNTBL - 


BYTE 


1. 


—Ow—OwFfr 
PUM «2 


SEQ 0247 


ma 


SEQ 0248 


dD 4 
E 42 
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CZRMNAO RMOS/3/2 FCTINL TST 2 
DATA PATTERN TABLE 


. . . 

Mr AN A *e ¢ *.7GO0O 

MM Me BC OMIM OGD — Or ° Ae bare Pipe. | 

DK VTOOME AMA MOO FV Ne © § MOUNT 

se MK MNN—-COOH- OUANNO- OOOH ANIMEN cree £82 OB DVNITNM— OOO OMNVO 
OM MVP — NO UN TO — MO OM — DFE NVR OM RK RM — OOK NT Oe NOK ONE STO MIM 


-SBTTL DATA PATTERN TABLE 


oer MFR 338 

SOOOCOOK— MARR RRR RRR RRR RR RAR RR OKO 

SOOCOCCOCOK MPRA RRR RR RRR RR eR 

OOOCOCCOCOCOCOK MPFR ARR RR MR 

sss ooo 

ooooo 

wT z onus 

% RALR 
3333332223 
be te eth bk oe 
FTAMAMMAMNAMAAWY 


atnatnoetes Meee ent 


: 
wv 
3333333 
oS 
wv 


ow 


™N 


2 
S 
AMARSS 
Z — 


: 
qiiasisis sessgsggggggagaausseesiiis 3 


TH MINTMOP- DOO UM TNOP-DOOK— MUM INO DOO— CUM Rp 2c 
hn ee eee ee al Al a AL aL AL AL AL ALA] 


Hiiissis 
BAA 
OOOO 
3333 
eae ae ee 


nem 
ww 


E 4 
CZRMNAO_ RMOS/3/2 "yiems TST 2 MACRO VO3.01 11-APR-80 13:17:48 PAGE 421 


DATA PATTERN TABL SEQ 0249 
58 064670 020000 WORD 8192. 
59 064672 010000 «WORD 4096. 
60 064674 004000 WORD 2048. 
61 064676 002000 WORD 1024. 
6¢ 700 001000 «WORD 512. 

63 064702 000400 WORD 256. 
64 064704 000200 «WORD 128. 
65 064706 100 «WORD 64. 

66 064710 000040 ~WORD 32. 

67 064712 020 ~WORD 16. 
68 064714 000010 -WORD 8. 

69 064716 000004 -WORD 4, 

70 064720 000002 -WORD 2. 

71 064722 000001 -WORD 1. 

72 064724 000000 -WORD 0. 

73 064726 177777 WORD 65535. 
74 064730 177776 WORD 65534. 
75 064732 177774 «WORD 65532. 
76 004734 177770 «WORD 65528. 
77 064736 177760 -WORD 65520. 
78 064740 177740 «WORD 65504. 
79 064742 177700 «WORD 65472. 
80 064744 177600 WORD 65408. 
81 064746 177400 -WORD 65280. 
82 064750 177000 «WORD 65024. 
83 064752 176000 «WORD 64512. 
84 064754 174000 -WORD 63488. 
85 064756 170000 «WORD 61440. 
86 064760 160000 WORD 57344. 
87 064762 140000 -WORD 49152. 
88 064764 100000 -WORD 32768. 
89 064766 000000 -WORD 0. 

90 064770 000000 -WORD 0, 

91 064772 100000 WORD 32768. 
92 064774 140000 -WORD 49152. 
93 064776 160000 WORD 57344. 
94 965000 170000 «WORD 61440. 
95 065002 174000 -WORD 63488. 
96 065004 176000 «WORD 64512. 
97 065006 177000 -WORD 65024. 
98 065010 1774 -WORD 65280. 
99 065012 177600 -WORD 65408. 
100 065014 177700 «WORD 65472. 
10: 065016 177740 -WORD 65504. 
103 065020 177760 «WORD 65520. 
103 065022 177770 -WORD 65528. 
104 065024 177774 -WORD 65532. 
105 065026 177776 -WORD 65534. 
106 065050 177777 -WORD 65535. 
107 065032 193238 EARLY: .WORD 43690. 
108 065034 152 ¢ WORD 43690./2 
109 065036 33 3 -WORD 43690. 
110 065040 17777 -WORD 65535. 
111 065042 177776 ~WORD 65534. 
ie 065044 177775 -WORD 65533. 
1135 065046 177773 -WORD 65551. 
114 065050 177767 WORD 65527, 
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E SEQ 0256 
77735 100541 100616 EHT1: .WORD €&H1,STSH1,STSH2,STSH4,0 

00541 100616 100743 EHT2: WORD STSH1,STSH2,STSH4,0 

77754 000000 EHT110: .WORD €H110,0 

77763 000000 EXT111: .WORD €H111,0 

00002 000000 EHT114: .WORD €H114,0 

00031 100541 100616 EHT223: .WORD EH223,STSH1,STSH2,STSH4,0 

00057 100541 100616 EHT256: .WORD €H256,STSH1,STSH2,STSH4,0 

00133 100541 100616 EHT336: .WORD €H336,STSH1,STSH2,STSH4,0 

00172 100541 100616 €EHT337: .WORD EH337,STSH1,STSH2,STSH4,0 

00327 100541 100616 EHT344: .WORD EH344,STSH1,STSH2,STSH4,0 

00465 000000 EHT353: .WORD €H353,0 
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ERROR MESSAGE STRINGS ° SEQ 0259 
1 .SBTTL ERROR MESSAGE STRINGS 
5 071540 127 122 117 EMS1:  .ASCIZ @WRONG UNIT SELECTED (RMCS2, BITS 0-2) a 
4 071607 104 105 126 EMS2: .ASCIZ @DEVICE WENT @ 
5 071624 125 116 101 EMS3:  .ASCIZ @UNAVAILABLE ''DVA’' (RMCS1, BIT 11) @ 
6 071667 116 117 116 EMS4:  .ASCIZ @NONEXISTENT NED’ (RMCS2. BIT 12) @ 
7 071732 10 117 115 EMSS: .ASCIZ @COMMAND NOT COMPLETED, @ 
B 071762 103 117 116 EMSS: “ASCIZ @CONTROLLER NOT READY (RMCS1, BIT 7) @ 
9 07202 104 122 111 EMS7:  .ASCIZ @DRIVE NOT READY DRY’ (RMDS. BIT 7) @ 
10 072074 107 117 040 EMS10: .ASCIZ @GO NOT RESET ‘GO’ (RMCSI, BIT 0) a 
11 072136 111 116 126 EMS11: .ASCIZ @IKVALID @ 
12 072147 106 125 116 EMS1¢: .ASCIZ @FUNCTION CODE (RMCS1, BITS 1-5) a 
13 072210 115 101 123 EMS13: .ASCIZ @MASSBUS @ 
14 072221 103 117 116 EMS14: .ASCIZ @CONTROL @ 
15 072232 102 125 123 EMS15: .ASCIZ @BUS PARITY ERROR @ 
16 072254 042 115 103 ENS 16: “ASCIZ a MCPE’ (RMCS1, BIT 13) @ 
17 072304 124 122 101 EMS17: .ASCIZ @IRANSFER ERROR (RMCS1, BIT 14) @ 
18 072344 123 110 117 EMS20: .ASCIZ @SHOULD NOT BE SET @ 
19 072367 127 117 122 EMS21: .ASCIZ @WORD COUNT (RMWC) @ 
20 072412 102 125 123 EMS22: .ASCIZ @BUS (RMBA) @ 
21 072426 042 114 102 EMS23: .ASCIZ a@''LBT’ (RMDS, B'T 10) @ 
22 072454 042 101 117 EMS24: .ASCIZ a@''AOE’ (RMERI, BIT 09) @ 
23 072503 104 111 123 EMS25: .ASCIZ @DISK (RMDA) @ 
24 072520 103 131 114 EMS26: .ASCIZ @CYLINDER (RMDC) @ 
25 072541 101 104 104 €EMS27: .ASCIZ @ADDRESS @ 
26 072552 123 124 101 EMS30: .ASCIZ a@STATUS @ 
27 072562 042 127 1146 EMS31: .ASCIZ @'WLE' (RMER1, BIT 11) @ 
28 072611 042 125 120 EMS32: .ASCIZ @'UPE’ (RMCS2, BIT 13) @ 
29 072640 042 127 103 EMS33: <ASCIZ a@'WCF’ (RMERI. BIT 5) @ 
30 072666 127 122 111 EMS34: .ASCIZ @WRITE CHECK ERROR-"WCE'’ (RMCS2, BIT 14) @ 
31 072737 042 115 104 EMS35: .ASCIZ @''MDPE’ (RMCS2, BIT 8) @ 
32 072766 042 104 103 EMS36: .ASCIZ a@''DCK™ (RMERT, BIT 15) a 
33 073015 042 105 103 EMS37: .ASCIZ a@ECH (RMERI, BIT 6) @ 
34 073043 042 104 114 EMS4O: .ASCIZ @'DLT' (RMCS2, BIT 15) a 
35 073072 042 115 130 EMS41: .ASCIZ a@''MXF’’ (RMCS2. BIT 9) @ 
36 073120 042 104 124 EMS42: .ASCIZ a@''DTE’ (RMER1, BIT 12) @ 
37 073147 042 110 103 EMS43: .ASCIZ @''HCRC’ (RMERI, BIT 8) a 
38 073176 110 105 101 EMS44: ASCIZ @HEADER COMPARE ERROR ''HCE'' (RMERI, BIT 7) @ 
39 073251 106 117 122 EMS45: .ASCIZ @FORMAT ERROR FER’ (RMERI, BIT 4) a 
40 073314 042 111 101 EMS46: .ASCIZ @''lAE’ (RMER1, BIT 10) a 
41 073343 042 117 120 EMS47: .ASCIZ a@''OPI’’ (RMER1, BIT 13) a 
42 073372 042 123 113 EMSSO: .ASCIZ a''SKI'' (RMER2, BIT 14) @ 
43 073421 042 120 111 EMS51: .ASCIZ a@'’PIP’' (RMDS, BIT 13) @ 
44 0734647 124 110 105 €MS52: -.ASCIZ @THE RM @ 
45 073457 104 105 124 EMS53: .ASCIZ @DETECTED @ 
46 073471 101 126 040 €MS54: .ASCIZ @AT AN UNEXPECTED @ 
47 073513 111 116 103 EMS55: .ASCIZ @INCORRECT DATA DURING 2 
48 073542 111 116 126 EMS56: .ASCIZ @INVALID COMMAND ERROR “‘IVC'' (RMER2, BIT 12) @ 
49 073617 104 125 122 EMS57: .ASCIZ @DURING DATA TRANSFER @ 
50 073645 104 101 124 EMS60: .ASCIZ @DATA READ @ 
51 073660 106 117 105 EMS61: .ASCIZ @DOES NOT COMPARE WITH @ 
52 073707 104 101 124 EMS62: .ASCIZ @DATA WRITTEN 
53 073725 042 120 101 EMS63: .ASCIZ a''PAR’ (RMER1, BIT 3) @ 
54 073753 11 123 040 EMS64: .ASCIZ @IS INCORRECT @ 
55 073771 103 117 115 EMS65: .ASCIZ @COMPOSITE ERROR ERR’ (RMDS, BIT 14) @ 
56 074037 104 101 126 £MS66: .ASCIZ @DATA PARITY ERROR DPE’ (RMER2, BIT 3) @ 
57 074107 104 125 122 EMS67: <ASCIZ @DURING SEEK COMMAND @ 
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ERROR MESSAGE STRINGS SEQ 0261 


115 076337 117 106 106 EMS161: .ASCIZ @OFFSET REGISTER (RMOF) @ 

116 076367 EMS16¢: - <UNUSED> 

117 076367 104 125 122 EMS163: .ASCIZ @DURING RECALIBRATE @ 

118 076413 111 123 040 EMS164: .ASCI] @1S INTERMITTENT OR DRIVE DIDNT DROP ON a 
119 076462 103 131 114 “ASCIZ @CYLINDER @ 

120 076474 125 116 105 €MS165: .ASCIZ @UNEXPECTED 

121 076510 122 105 103 EMS166: .ASCIZ @RECALIBRATE COMMAND 

122 076535 042 101 124 EMS167: .ASCIZ @ATA™ CRMDS 

123 076562 127 110 105 EMS170: .ASCIZ @WHEN READING REGISTER @ 

126 076611 105 122 122 EMS171: .ASCIZ @ERROR REGISTER #2, RMER2, @ 

125 076644 116 117 116 EMS17¢: -ASC1Z2 @NONRECOVERABLE @ 

126 076664 122 105 103 EMS173: .ASCIZ @RECOVERABLE @ 

127 076701 104 101 124 €MS174: .ASCIZ @DATA @ 

128 076707 104 125 122 EMS175: .ASCIZ @DURING WRITE COMMAND @ 

129 076735 042 117 120 €MS176: .ASCIZ @''OPE' (RMER2, BIT 13) @ 

130 076764 111 116 040 EMS177: .ASCIZ @IN WRITE PROTECT @ 

131 077006 103 101 116 EMS200: .ASCIZ @CAN NOT SET @ , 

132 077023 104 111 101 EMS201: .ASCIZ @DIAGNOSTIC MODE ‘DMD’ (RMMR1, BIT 0) a 
133 677071 104 125 122 EMS202: .ASCIZ @DURING DIAGNOSTIC MODE a 

134 077121 111 116 103 EMS203: .ASCIZ @INCORRECT @ 

135 077134 042 127 122 EMS204: .ASCIZ @''WRL' (RMDS, BIT 11) @ 

136 077162 105 130 105 €MS205: .ASCIZ @EXECUTED a 

137 077174 127 111 124 EMS206: .ASCIZ @WITH COMP ERROR SET @ 

138 077221 042 107 117 EMS207: .ASCIZ a@''GO'' (RMCS1, BIT 0) a 

139 077246 127 122 111 EMS210: .ASCIZ @WRITING @ 

140 077257 127 101 123 EMS211: .ASCIZ @WAS RESET BY @ 

141 077275 120 122 117 EMS212: .ASCIZ @PROGRAM INTERRUPT @ 

149 077320 127 101 123 EMS213: .ASCIZ @WAS NOT GENERATED @ 

143 07734 123 105 105 EMS214: :ASCIZ @SEEK COMMAND a 

144 077361 120 122 117 EMS215: .ASCIZ @PROGRAM TIMEOUT @ 

145 077402 104 125 122 EMS216: .ASCIZ @DURING LOOK AHEAD TEST @ 

146 077432 114 117 117 EMS217: .ASCIZ @LOOK AHEAD REGISTER,RMLA, @ 

147 077465 123 105 101 EMS220: .ASCIZ @SEARCH COMMAND a 

148 077505 102 101 104 EMS221: .ASCIZ @BAD SECTOR ERROR ‘'RSE’’ (RMER2, BIT 15) @ 
149 077555 101 040 104 EMS222: .ASCIZ @A DATA TRANSFER COMMAND @ - 

150 077606 110 105 101 EMS223: .ASCIZ @HEADER COMPARE INHIBIT “HCI (RMOF, BIT 10) a 
123 077663 116 117 116 EMS224: .ASCIZ @NONEXISTENT MEMORY ''NEM’’ (RMCS2, BIT 11) a 


. 7 
CZRMNAO RMOS/3/2 FCTNL TST 2 MACRO VO03.01 11-APR-80 13:17:48 PAGE 48 
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1 077735 105 130 120 EHI: -ASCIZ @EXPCTD RECEVDA 

2 077754 102 1§3 123 EH110: .ASCIZ @BUSADR 

; 077763 040 122 115 EM111: .ASCI2Z MCS2 = RMCS1a 

5 100002 122 105 103 EH114: .ASCIZ @RECEVD SNGPRT DULPRTA@ 

6 100031 105 130 120 EH223: .ASCIZ @EXPCTD RECEVD DATAa 

7 100057 105 130 120 EH256: .ASCI] @EXPCTD RECEVD RGSTRA<CRLF> 

g 100105 123 124 101 -ASCIZ @STATUS STATUS INDEXa 

10 100133 107 104 101 €H336: .ASCIZ @GDADRS GDDATA BDADRS BDDATAa 

a fs AE: \¢¢ 113 193 EH337: ASCII aRACSe STATUS FAILING BATABCERLE> 

e te EES <CRLF> 

13 100270 105 130 120 -ASCIZ a@ERXPCTO™ RECEVS BYT”~“ABRESSa 

15 100327 122 115 105 €H344: .ASCI] @RMER1 STATUS HEADER FAILING@<CRLF> 
16 100367 137 137 137 ASCII sas WORD BIT@<CRLF> 
17 100425 105 130 120 -ASCIZ @EXPCTO"RECEVB NUMBER POSITONA 

18 100465 105 130 120 EH353: .ASCI] @EXPCTD RECEVDa<CRLF> 
4 100504 074 103 122 eASCIZ @<CRLF> RMLA RMLA RMOF @ 
21 100541 040 122 115 STSH1: .ASCI] @ RMCS1 RMCS2 ~~ RMDS RMER1 RMER2Q 
22 100606 040 040 040 -ASCIZ @ RMAS@ 
23 100616 040 122 115 STSH2: .ASCII] @ RMWC RMBA RMDA RMOF RMDCa 
24 100663 040 040 040 -ASCIZ @ RMEC1 RMEC2Q 
25 100705 040 122 115 STSH3: .ASCIZ @ RMDA RMDC RMOF RMLAQ 
26 100743 040 122 115 STSH4: .ASCIZ @ RMMR1 RMMR2 ~~ RMDT RMSNa 
34 EVEN 
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ERROR MESSAGE STRINGS SEQ 0263 
1 101002 001140 001142 000000 €D1: -WORD $GDDAT,SBDDAT,O 
2 101010 001276 000000 ED110: .WORD BASE, 
; 101014 001174 001176 000000 ED111: .WORD S$TMPO,S$TMP1,0 
5 101022 001362 001176 001200 ED114: .WORD RMDTI,STMP1,STMP2,0 
$ 101032 001140 001142 001174 ED223: .WORD $GDDAT,S$BDDAT,STMPO,0 
. 101042 001134 001140 001136 £D336: .WORD $GDADR,$GDDAT,$BDADR,$BDDAT,0 
10 101054 001140 001142 001174 ED337: .WORD $GDDAT,SBDDAT,STMPO,STMP1,0 
\y 101066 001140 001142 001442 ED353: .WORD $GDDAT,S$BDDAT,RMOFO,0 
13 101076 001334 001344 001346 STSD1: .WORD RMCS11,RMCS21,RMDSI,RMER11,RMER2Z1,RMASI,0 
14 101114 001336 001340 001342 STSD2: .WORD RMWC1,RMBAIL,RMDA] ,RMOF],RMDC1,RMEC1I 
15 101130 001402 000000 -WORD RMEC2I, 
16 101134 001342 001370 001366 STSD3: .WORD RMDAI,RMDCI,RMOFI,RMLAI,O 
4 101146 001360 001374 001362 STSD4: .WORD RMMRIT,RMMROI,RMDTI,RMSNI,0 


SEQ 0264 
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wr AFRAAA Fn A PFAFAFRAAAARAAAAA Cad A A PD of FARAGAA 


0 
0 
0,0,0,0,0,0,0 


Y 

Y 

Y 

Y 

Y 
BYTE 


~EVEN 


000 

000 0 

000 0 

000 0 

000 000 STSF: 


000 
000 
000 
000 
000 
000 


1 

1 

1 

1 

1 
101177 


TH OWMNTN OR- OOD 


CZRMNAO RMOS/3/2 FCTNL TST 2 
ERROR MESSAGE STRINGS 


103216 000000 000000 
104222 177777 


4 

5 

6 

7 

8 

9 

| 

‘¢ 104224 000000 000000 
4 105230 177777 

16 101206 

17 

18 101206 

19 101206 200 
20 101207 200 
21 101210 114 111 
22 101226 055 055 
23 101244 124 061 
24 101276 124 062 
25 101327 124 063 
26 101352 124 064 
27 101372 124 065 
28 101414 124 066 
29 101442 124 067 
30 101505 124 061 
31 101525 124 061 
32 101553 124 061 
33 101617 124 061 
34 101653 124 061 
35 101710 124 061 
36 101750 124 061 
37 102003 124 061 
38 102042 124 062 
39 102100 124 062 
40 102133 124 062 
41 102201 124 062 
42 102245 124 062 
43 102305 124 062 
44 102344 124 062 
45 102406 124 062 
46 102433 124 063 
47 102457 124 063 
48 102505 124 063 
49 102547 124 063 
50 102612 200 
51 102613 117 120 
52 102647 055 055 
53 102703 123 127 
54 102720 055 055 
55 102755 040 040 
56 103001 040 040 
57 103024 040 


oooooco°0cceo— 
at et ts os os LD 
Some at 


oocoo°o-0o—- oOo 
GOOoouw—-urio Om 
—— OW 
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SEQ 0265 


:STORAGE FOR GENERAL DATA TRANSFERRS 
BUFFER: 

BUFONE: .BLKW 258. 

BUFTWO: .BLKW 258. 


ern FOR MANUFACTURES 16 BIT MODE sack SECTOR FILE 
R 0,0 HEADER WOR 


MFGFIL: .WORD : DS 
-BLKW 236. i256. WORDS OF DATA 
“WORD ‘TERMINATOR IF FILE IS FULL 


;STORAGE FOR USERS 16 BIT MODE BAD SECTOR FILE 
RD 0,0 HEAD 


USRF IL: 32 ER WORDS 

“BLKW 236. +256. WORDS OF DATA 

“WORD ‘TERMINATOR IF FILE IS FULL 
.=BUFFER 
HELP: 
ASCII <CRLE> 
[ASCII] <CRL 
“ASCII sist oF TESTS@<CRLF> 
LASCI]  Qeeewnennenene <CRLF> 
ASCII] aT CONTROLLER ACCESS TEST@<CRLF> 
“ASCII aT2 DEVICE AVAILABLE TEST@<CRLF> 
“ASCII aT3 DRIVE TYPE TESTA<CRLF> 
“ASCII aT FORMAT ZEROS@<CRLF> 
“ASCII aT5 ZERO FILL TESTACCRLF > 
"ASCII até RMAT CHECK ZEROSA<CR 
[ASCII aT7 FORMAT CHECK ZEROS W/ bce ERROR@<CRLF> 
“ASCI1 @T10 FORMAT ONES@<CRLF> 
“ASCI] @111 FORMAT CHECK ONES@<CRLF> 
"ASCII aT12 FORMAT CHECK ONES W/ WCE ERRORS@<CRLF> 
“ASCI] @113 FORMAT MULTIPLE SECTORS@<CRLF> 
“ASCI] 114 FORMAT W/ HEAD SWITCHING@<CRLF > 
“ASCII @715 FORMAT W/ MID TRANSFER SEEK@<CRLF> 
“ASCI1 @716 FORMAT W/ IMPLIED SEEK@<CRLF> 
“ASCII @T17  —- FORMAT EACH SECTOR ADDRESS@<CRLF> 
-ASCI1 @720 FORMAT EACH TRACK ADDRESS@<CRLF> 
“ASCI1 @721 FORMAT PRIME CYLINDERS@<CRLF> 
“ASCII @T22 READ HEADER & DATA IN LAST SECTOR@<CRLF> 
“ASCII @723 READ HEADER & DATA W/ AOE ERROR@<CRLF> 
“ASCI1 @724 READ INVALID SECTOR ADDRESS@<CRLF> 
“ASCII @125 —- READ ~INVALID TRACK ADDRESSA@<CRLF> 
<ASCII @726 READ INVALID CYLINDER ADDRESS@<CRLF> 
“ASCII @127 FORMAT AT OFFSET@<CRLF> 
“ASCI1 @730 IVC FORMAT TEST@<CRLF> 
“ASCII @731 FORMAT ERROR TESTA<CRLF> 
“ASCI] @732 FORMAT HCE, FIRST HEADER WORD@<CRLF> 
“ASC aT33 FORMAT HCE. SECOND HEADER WORD@<CRLF > 
js < 
“ASCII SOPERATIONAL SWITCH SETTINGSA<CRLE> 
“ASCI] @SWITCH USE@<CRLF> 
CASEI] Qeennee ewww ewww ceceecececce @<CRLF> 
“ASCI] a 15 HALT ON ERROR@<CRLF> 
ASCII] @ 14 LOOP ON TEST@<CRLF> 
“ASCI] a 13 INHIBIT ERROR TYPEQUTS@<CRLF > 


. 
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ERROR MESSAGE STRINGS SEQ 0266 
58 103061 040 040 061 .ASCI] @ 12 a<CRLF > 
59 103070 040 040 061 .ASCI] @ 11 INHIBIT ITERATIONS@<CRLF> 
60 103121 040 040 061 .ASCI] a 10 BELL ON ERROR@<CRLF> 
61 103145 040 040 040 .ASCII @ 9 LOOP ON ERROR@<CRLF> 
62 103171 040 040 040 .ASCI] O 8 LOOP ON TEST IN SWR<7:0>@<CRLF> 
63 103230 040 040 040 .ASCII @ 7 ™N128a8<CRLF> 
64 103244 040 040 040 .ASCII @ 6 TN64a<CRLF > 
65 103257 040 040 040 .ASCI] a@ 5 TN32a<CRLF> 
66 103272 040 040 040 .ASCII @ 4 T™N16a<CRLF > 
67 103305 040 040 040 .ASCI] a 3 TN8Q@<CRLF> 
68 103317 040 040 040 .ASCI] &@ 2 TN4@<CRLF> 
69 103331 040 040 040 .ASCI] a 1 TN2Q@<CRLF> 
9 103343 040 040 040 .ASCIZ a O TN1Q<CRLF> 
72 000200 . END 200 





>>>??? ?r??r YY YYY>?Y?r?r?rr?rYrYrrrYrY>rY: 
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SYMBOL TA SEQ 0267 
ABASE = 176700 ATNMSK= 000377 CHRCNT 033313 EDT! 071362 EFPS100 074312 
ACDW1 = 000000 ATNTBL 064506 CKSWR = 104410 EDTI10 071400 EMS101 074340 
ACDW2 = 000000 AUNIT = 000000 CLKADR 001516 EDT111 071402 EMS102 074366 
ACKSTS 047462 AUSWR = 000000 CLKVCT 001520 EDT114 071404 EMS103 074415 
| ACPUOP= 000000 AVECTI= 120254 CLR = 000040 EDT2 071372 EMS104 074424 
| ADDWO = 000000 AVECT2= 000000 CLRSTS 046602 HALTS 071406 EMS105 074453 
ADDW! = 00000 Al6 = = - 000400 CMNSTA 007612 EDT336 071416 EMS106 074502 
| ADDWI0= 000000 Al? = = 001000 CMPBUF 036462 EDT337 071426 EMS11 072136 
ADDW11= 00000 = 000000 CMPERR 044600 EDT344 071436 EMS110 074521 
ADDW12= 0000 BADSCT 034276 CNSLOO 063644 EDT353 071450 EMS111 074550 
ADDW13= 000000 005340 CNSLO1 063677 ED! 101002 EMS112 074561 
ADDW14= 000000 BA = 000010 CNSLO2 063715 ED110 101010 EMS113 074645 
| ADDWI5= 000000 BB00 = 000001 CNSLO3 063757 ED111 «101014 EMS114 074675 
ADDW2 = 000000 BBO! = 000002 CNSLO4 063777 ED114 101022 EMS115 074721 
| ADDWS = 000000 BBO2 = 000004 CNSLO5 064u33 ED223 =101032 EMS116 074724 
| ADDWS = 000000 BB03 = 000010 CNSLO6 064045 ED336 101042 EMS117 074754 
| ADDWS = 000000 BB04 = 000020 CNSLO7? 064076 ED337 = 101054 EMS12) 072147 
ADDW6 = 000000 BB05 = 000040 CNSLOB 064241 ED353 += 101066 EMS120 074776 
ADDW7 = 00000 BB06 = 000100 CNSLO9 064242 EECC = 000020 EMS121 075017 
ADDW8 = 000000 BB07 = 000200 CNTCLR 046464 EFT 071452 EMS122 075062 
ADDWI = 000000 BB08 = 000400 COMMA = 063231 EFT110 071470 EMS123 075117 
ADEVCT= 000000 BBO9 = 001000 CONT = 000100 EFT111 071472 EMS124 075162 
ADEVM = 000000 BITO0 = 000001 CR = 000015 EFTI14 071474 EMS125 075214 
ADR = 000001 B1T00 = 000001 CRLF = 000200 EFT2 071462 EMS126 075257 
AENV. = 000000 B1T01 = 000002 CTLFG 001326 EFT223 071476 EMS127 075322 
AENVM = 000000 B1T02 = 000004 CYLMSK= 001777 EFT336 071506 EMS13 072210 
AFATAL= 000000 B1T03 = 000010 DBCK = 100000 EFT337 071516 EMS130 075361 
ALL 0632 B1T04 = 000020 DBEN = 040000 EFT344 071526 EMS131 075417 
AMADR1= 000000 BITO5 = 000040 DBL == 002000 EFT353 071536 EMS132 075457 
AMADR2= 00000 B1T06 = 000100 DCK = 100000 EF110 101160 EMS133 075503 
AMADR3= 000000 B1T07 = 000200 DDISP = 177570 EF111 101161 EMS134 075526 
AMADR4= 000000 B1T08 = 000400 EBL. = 020000 EF114 101163 EMS135 075570 
AMAMS1= 000000 B1T09 = 001000 DEVSEL 045012 EF336 4 ©=©101166 EMS136 075633 
AMAMS2= 000000 BIT! = 000002 DISPLA 001156 EF337 = 101172 EMS137 075660 
AMAMS3= 000000 B1T10 = 002000 DISPRE 000174 EHT1 071236 EMS14 072221 
AMAMS4= 000000 B1T11 = 004000 LT = 100000 EHT110 071260 EMS140 075715 
AMSGAD= 000000 BIT12 = 010000 DMD = 000001 EHT111 071264 EMS141 075736 
AMSGLG= 000000 B1T135 = 020000 DPE = 000010 EHT114 071270 EMS142 075764 
AMSGTY= 000000 BIT14 = 040000 DPEHI = 040000 EHT2 071250 EMS143 076001 
AMTYP1= 000000 B1T15 = 100000 DPELO = 020000 EHT223 071274 EMS144 076027 
AMTYP2= 000000 B1T2 = 000004 DPR = 000400 EHT256 071306 EMS145 076037 
AMTYP3= 000000 B1T3 = 000010 DRQ = 004000 EHT336 071320 EMS146 076066 
AMTYP4= 000000 B1T4 = 000020 DRVCLR= 000010 EHT337 071332 EMS147 076105 
AOE = 001000 BITS = 000040 DRVSTS 052020 EHT344 071344 EMS15 072232 
APASS = 000000 B1T6 = 000100 RY = 000200 EHT353 071356 EMS150 076122 
| APE = 100000 BIT? = 000200 DSWR = 177570 EH] 077735 EMS151 076141 
| APRIOR= 000000 B1T8 = 000400 DTASTS 052622 EH110 8077754 EMS152 076165 
APTCSU= 000040 B1T9 = 001000 = 010000 EH111 077763 EMS153 076211 
APTENV= 000001 BOTADR 033310 = 010000 EH114 100002 EMS154 076233 
APTS1Z= 000200 BOTFLG 033312 DULPRT= 024024 EH225 =100031 EMS155 076247 
APTSPO= 000100 BPTVEC= 000014 = 004000 EH256 =. 100057 EMS156 076267 
ARGS = BSE = 100000 = 000200 EH336 =. 100133 EMS157 076305 
| ASNDA 001514 BUFFER 101206 EARLY 065032 EH337 =: 100172 EMS16 072254 
ASNDC 001512 BUFONE 101206 BL = 020000 EH344 100327 EMS160 076322 
ASWREG= 000000 BUFTWO 102212 ECH = 000100 EH353 = 100465 EMS161 0763357 
= 100000 = 004000 EC] = Q04000 EMS1 071540 EMS162 076367 
ATESTN= 000000 CH = 002000 ECRC = 001000 EMS10 072074 EMS165 076367 


| 
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—EMT353 «(071220 FNCMSK= 
—EMT354 «071230 FO = 
| EMT36 © 065460 F 1 5 
| EMT37 «= 065470 F2 = 
| EMTS 065164 F3 = 
/ EMT40 065500 F4 = 
/ EMTG41 «© 065506 GENBUF 
| EMT42 065516 
| EMT43 §©=— 0065530 GE TBUF 
EMT44 065540 GETINX 
EMT4S 065550 GETSTS 
EMT46 © 0655560 = 
EMT47 065570 GTSWR = 
| EMTS 065172 H = 
EMTSO 065576 HC] = 
| EMTS1 065606 HCRC = 
EMT52 065620 HELP 
EMTS3 065636 HT = 
EMT54 065654 = 
EMTSS 065664 1DXMSK= 
EMTS6 © 065676 = 
EMTS? 065714 ILF os 
EMT6 © 065200 ILFO2 = 
EMT60 065724 ILF24 = 
EMT61 065742 ILF26 = 
EMT62 065762 ILF30 = 
EMT63 065776 ILF32 = 
EMT64 066 ILF34 = 
EMT65 066 ILF36 = 
EMT66 066040 ILF40 = 
EMT67 066052 ILF42 = 
EMT? 06520 ILF44 = 
EMT70 066064 ILF46 = 
EMT71 066074 ILF54 = 
EMT72 066104 ILF56 = 
EMT73 066122 ILF64 = 
EMT74 14 ILF66 = 
EMT75 15 ILF74 = 
EMT76 066170 ILF76 = 
—M177 200 2 
ENRGDT 065144 ILRG5O= 
EQUALS 063216 ILRGS2= 
ERR = 0400 ILRGS4= 
ERRNMB 033306 ILRG5S6= 
ERROR = 104000 ILRG60= 
ERRTYP 032550 ILRG62= 
ERRVEC= 04 ILRG64= 
ERTYOO 033314 ILRG66= 
ERTYO! 033322 ILRG70= 
ERTYO2 033332 ILRG72= 
ERTYOS 033341 ILRG74= 
ERTYOG 033347 ILRG76= 
ESRC = 004000 JOTVEC= 
FER = 000020 IPCKO = 
FIND = 000001 IPCK1 = 
FMT16 = 010000 IPCK2 = 


eer ns nn 


FNCDTB 064406 IPCK3 
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000077 IR = 000100 PHA = 000200 RMDAI 001342 
000002 IvC = 010000 PIP = 020000 RMDAO §= 001416 
000004 LBC §=—s =_:« 002000 PIRQ = 177772 RMDB_ = 000022 
000010 LBT = = 002000 PIRQVE= 000240 RMDBI 001356 
000020 LF = 000012 PLFS = 002000 RMDBO 38 001432 
000040 LODEV 064305 PRIERR 040106 MDC = 000034 
036224 LS = 000004 PRO = 000000 RMDCI 001370 
037110 LSC == _- 004000 PRI = 000040 RMDCO 38001444 
001334 LST = 000002 PR2 = 060100 RMDS = 000012 
001522 LSTRK 001332 PRS = = 000140 RMDSI 001346 
037024 MCLK = 004000 PR4 = 000200 RMDSO 001422 
000001 MCPE = 020000 PRS = 000240 RMDT = 000026 
104407 MDF = 000100 PR6 = = 000300 RMDTI 001362 
000200 MDPE = 000400 PR? == 000340 RMDTO 001436 
002000 MEDENB 001510 PS = 177776 RMEC1 = 000044 
000400 MFGFIL 103216 PSEL = 002000 RMEC1I 001400 
101206 = 000004 PSW == 177776 RMECIO 001454 
000011 MIXED 064516 PUT 037360 RMEC2 = 000046 
002000 MOC = 000400 PUTBUF 001410 RMEC21 001402 
000077 MOH = 020000 PUTINX 001551 RMEC20 001456 
000100 MOL = 010000 PWRVEC= 000024 RMER1 = 000014 
000001 MRD = 002000 QUES 063225 RMER1] 001350 
000002 MS = 000040 RCLSTS 050256 RMERIO 001424 
000024 M = 000002 RD = 000070 RMER2 = 000042 
000026 MSDRVS 064263 RDCHR = 104411 RMER21] 001376 
000030 MSE = 100000 RDLIN = 104412 RMER2O 001452 
000032 MSER = 000200 RDOCT = 104413 RMHR = 000036 
000034 MSGDRV 064277 RDY = 000200 RMHRI =001372 
000036 MSHELP 063234 READY 007764 RMHRO 3001446 
000040 MUR = 001000 RECAL = 000006 RMLA = 000020 
000042 MWD = 000010 RESREG= 104415 RMLAL 001354 
000044 MWP == 000010 RESVEC= 000010 RMLAO 38001430 
000046 MXF_ == 001000 REX = 010000 RMMR1 = 000024 
000054 NDTMSK= 115760 = 040000 RMMR11 001360 
000056 NED = 010000 RGDTPT 064516 RMMRIO 001434 
000064 NEM = 004000 = 000072 RMMR2 = 000040 
000066 NOP = 000000 RIP = 000020 RMMR21 001374 
000074 NOTAVL 064342 RLEASE= 000012 RMMR20 001450 
000076 NOTPRS 064325 RMAS = 000016 RMOF = 000032 
00002 NSA = 100000 RMASI 001352 RMOFI 001366 

0050 occ §== 100000 RMASO = 001426 RMOFO 001442 
000052 OFD = 000200 A_ = 000004 RMR = 000004 

0054 OFFLIN 064361 RMBAE = 000050 RMSN = 000030 
000056 OFFSET= 000014 RMBAE] 001404 RMSNI 001364 
000060 0 = 000001 RMBAEO 001460 RMSNO 001440 
000062 ONE 064556 RMBAI 001340 RMWC == 000002 
000064 ONLINE 064373 RMBAQ 38001414 RMWC] = 001336 
00066 OPE = 020000 RMCS1 = 000000 RMWCO 3=—001412 
000070 OP] = 020000 RMCS11 001334 RQA = 100000 
000072 OR = 000200 RMCS1O0 001410 RQB_ == 040000 

00074 PACACK= 000022 RMCS2 = 000010 RTC =. 000016 
000076 PAKACK= 000022 RMCS21 001344 R6 =%000006 
000020 PAR = 000010 am eee 001420 R? =%000007 

00001 PAT = 000020 RMCS35 = 000052 SADMSK= 000377 
000002 PDA = 000400 RMCS31 001406 SAVREG= 104414 
000004 PGE = 002000 RMCS30 001462 SA1 = 000001 
000010 PGM = 001000 RMDA = 000006 SA16 = 000020 
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000010 TYPOC = 104402 sbOus 
000020 TYPON = 104404 $DDW 
000040 TYPOS = 104403 SDEVCT 
000100 UBUSQS 063611 SDE 
000200 UNS = 040000 SDOAGN 
000400 UNTMSK= 000007 SDTBL 
001000 UPE = 020000 SENDAD 
177400 USE 0000 SENDCT 
020000 USRFIL 104224 SENULL 
001114 U0 = 000001 SENV 
040000 Ul = 000002 SENVM 
000400 v2 = 000004 SEOP 
010000 vv = 000100 SEOPCT 
001000 wC = 000040 SEOSP 
002000 WwCD = 000050 SERFLG 
004000 WCE = 040000 SERMAX 
000014 WCEH] = 010000 SERROR 
037722 WCELO = 004000 SERRPC 
000060 W = 000040 SERRTB 
000064 WCH = 000052 SERTTL 
000034 D = 000060 SESCAP 
040000 WH = 000062 SETABL 
000014 WLE = 004000 SETEND 
010000 WRL_ = 004000 SFATAL 
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43-231 
43-98 
43-193 
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43-195 


43-230 
43-96 

47-938 
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43-188 
43-205 
43-194 


43-229 
43-95 

43-202 
43-183 


43-228 
43-94 

47-968 
43-182 


43-225 
43-93 

43-106 
43-138 
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SEQ 0294 


EMSI62 47-1168 
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—MS163 
| EMS164 


43-58 43-59 
43-72 43-73 
43-45 47-1188 
43-56 3-57 
43-122 43-142 
43-8 3-49 
43-14 47-178 
43-9 47-1238 
43-57 3-105 
43-215 47-1258 
43-214 47-1268 
43-216 47-1278 
43-216 43-217 
47-1298 

43-127 = 47-1308 
43-4 43-5 
43-34 43-58 
43-128 47-1318 
43-128 47-1320 
43-129 43-130 
43-129 43-130 
43-131 9 47-1358 
43-55 43-142 
43-55 43-142 
43-168 43-170 
43-15 47-198 
43-169 43-170 
43-170 47-140" 
43-171 43-172 
43-171 947-1428 
43-55 47-1438 
43-236 947-1448 
43-237 47-1458 
43-237 47-1468 
43-16 47-208 
43-179 947-1478 
43-231 43-238 
43-233 47-1498 
43-232 47-150" 
43-121 47-1518 
43-17 47-218 
43-18 47-220 
43-19 43-115 
43-20 43-116 
43-16 43-19 
43-4 43-76 
43-17 43-18 
43-33 43-43 
43-177 = 43-199 
43-21 43-146 
43-22 47-284 
43-23 43-219 
43-24 43-225 
43-25 43-216 
43-26 43-215 
43-27 47-330 


43-218 


47-48 
43-110 


43-131 
43-131 
43-179 
43-170 
47-1388 
43-173 


47-1418 


47-1484 


47-238 


43-61 
43-143 


43-72 
43-122 


43-126 


47-1398 


47-248 
43-115 


43-22 
43-130 


43-208 


43-227 
43-215 


43-62 
47-1178 


43-172 
43-123 


47-1248 


47-1288 


43-116 


43-23 
43-131 


47-278 


47-308 
47-328 


43-63 


43-196 
43-124 


47-1378 


43-173 


43-24 
43-132 


43-64 


43-197 
43-168 


47-258 


43-25 
43-133 
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43-65 


43-198 
43-169 


43-26 
43-144 


43-66 43-67 43-68 
47-1208 

43-170 943-175 = 4 3=235 
43-232 43-238 47-188 
47-1338 

43-237 47-1348 

43-27 43-28 43-29 
43-145 43-146 9435-147 


"43-69 


47-1228 


43-30 
43-174 


43-70 
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43-32 
43-176 


SEQ 0296 





————— —_ A HS, CE | 
Cr + 
- a ~ 


a | Nn? 
= RMOS/3/2 FCTNL TST 2. MACRO VO3.01 11-APR=80 13:17:48 PAGE $-14 


| CROSS REFERENCE TABLE (CREF v01-05 ) SEQ 0297 
| 
| EMS4GO0 §=—43-28 = 43-220) 47-348 
EMS41 43-29) 43-190 9 43-191 47=35¢ 
EMS42 43-30 = 435-206 39 47-368 
EMS4 43-3) 43-209 47-378 
EMS44 «43-320 43-211 943-230 9 47-388 
EMS45 = 43-33 43-210 943-229 47-398 ’ 
EMS46 «= 43-43 43-58 43-120 9 43-165) 43+177 43-185 43-199 43-201 47-408 
EMS47 = 43-37 43-44, 43-45 43-52 43-60 43-61 43-66 43-117 43-118 = 43-147 43-186 = 43-187 = 43-188 = 4 3-192 
OG SS , 
EMS5O ahah 43-48 43-64 43-70 43-132 43-135 43-139 43-141 43-181 43-185 43-189 43-200 43-201 43-221 
EMS51 43-48 43-55 43-70 43-130 9 43-139) 43-142 0 43-179) 43-189) 43-221 47-430 
EMS52 rt a P 43-142 43-143 43-148 = 43-1469 43-178 = 43-179 43-185 43-201 943-228 = 43-229 43-230 43-231 43-233 
EMS53) 943-37 43-38 43-39 43-40 43-44 43-45 43-46 43-47 43-62 43-64 43-65 43-73 43-140 43-141 
43-187 = 43-190 = 43-191 43-192, 43-193 43-196 = 43-195 43-200 §= 43-202) 43-203 
43-206 43-206 = 43-207 43-216 © 43-218 = 43-219 43-220 43-226 47-450 


EMS56 8643-50 43-51 43-54 43-62 43-63 43-67 43-119 43-143 43-146 48-178 43-182 43-183 43-194 = 43-195 


EMSS? = 43-190) 43-191 43-192, 43-193) 43-196 43-195 43-196 = 43-197 43-198 «= 43-199 3-200) 43-201 43-202 43-203 
43-204 43-205 «43-206 943-207 9 43-208 §=— 43-209) 43-210 943-211 43-213 3-216 = 43-215 43-220 43-221 = 43-222 


EMS63 943-42 43-149 43-190 47-534 
EMS64 43-8 43-14 43-41 43-144 43-145 9 43-146 43-147 43-199 47-548 


EMS66 «643-34 43-218  47-56# 
3g 43-43 43-44 43-45 43-46 43-47 43-48 43-49 43-50 43-51 43-52 43-54 47-S7m 


EMS70 43-48 =» 3-50 43-52 43-54 3-66 3-703-733-1074 3-110 43-139 3-182. 3-189 43-194 43-205 
EMS71 43-51 43-59 = 43-63) 43-183 43-195 = 43-208 = 47-598 


EMS72 43-36 43-48 43-51 43-55 43-56 43-57 43-60 43-61 43-61 43-63 43-108 43-109 43-134 43-135 
43-139 = 43-140 = 43-162 43-179 43-183) 43-187 = 43-193 43-195 £37538 47-608 
3-2 


EMS73 = 43-49 43-54 43-67 43-68 43-136 43-180 43-188 43-222 - 43-234 43-235 47-618 
EMS74 43-69 43-70 43-134 43-189 43-217 43-221 47-620 

EMS75 943-35 43-66 43-67 43-137 = 43-138 = 43-188 «= 43-222 43-223) 43-234 947-638 

EMS76 «= 43-35 43-36 43-37 43-38 43-39 43-40 47-648 


43-181 43-182 43-184 43-186 
- 43-38 43-72 43-148 43-198 47-654 
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EMT 7-4 43-34 
EMT10 7-25 43-108 
EMT100 7-198 43-664 
EMT101 7-201 43-674 
EMT102 7-204 43-688 
EMT105 7-207 43-698 
EMT104 7-210 43-708 
EMT105 «7-215 43-718 
EMT106 «7-216 «43-728 
(EMTI07 «67-219 43-738 
EMTq 7-28 435-114 ® 
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EMT34 7-85 43-308 
EMT340 7-688  43-226« 
EMT341 7-691 43-2078 

-EMT342 7-694 43-2288 

-EMT343 «7-697 43-2098 

344 7-700 43-2308 

1 EMT345 «7-703 «43-2318 
EMT346 «7-706 «9 43-2328 

| EMT347 «7-709 43-2338 

| 135 7-88 43-314 
EMT350 «7-712 «43-2340 
EMT351 7-715 = 43-235 
EMT352 7-718 += 43-2368 


/EMT77— P= 43-654 
LEMTVEC  G-4918 9-19" 9-19 
| ENRGDT 42-1448 


EQUALS 39-58 


25-102 25-136 


4-560" 25-84 25-86 


/ ERR 


SEQ 0306 
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